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A GRAFIX 80 F/T é versátil. Com 
ela você pode facilmente imprimir 
formulários contínuos e folhas 
soltas como papéis de carta, 
envelopes, etiquetas, etc. Isto 
porque a GRAFIX 80 F/T é a única 
que vem equipada com trator e 
com cilindro de borracha, igual aos 
das máquinas de escrever, 
permitindo a impressão da primeira 
à última linha 
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A GRAFIX 80 F/T é rápida e 








silenciosa. Imprime em 80 colunas 
a 160 caracteres por segundo com 
baixo nível de ruído. 


Além de tudo isso, a GRAFIX 80 
F/T é compatível com todos os 
microcomputadores, especialmente 
com os compatíveis IBM-PC, 
imprimindo todos os softwares 
disponíveis (Dbase Ill, Lotus 1-2-3, 
Word, ABC, Chartstar etc.) 


Conheça a GRAFIX 80 F/T. 
À impressora certa para seu 
micro pessoal ou profissional. 
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IV ossa edição de JOGOS traz di- 
versos programas e idéias inte- 
ressantes, mesmo para aqueles usuá- 
rios que preferem aprender a fazer do 
que jogar. Pensando neles, inserimos 
nesta edição, além das listagens de jo- 
gos, artigos que contêm dicas precio- 
sas para os curiosos e autodidatas. 

No artigo “A programação de jo- 
gos”, nosso colaborador Giangiacomo 
Ponzo Neto percorre, com exemplo, os 
diversos elementos que devem constar 
de um bom jogo, dando sugestões de 
como melhor explorar os recursos das 
máquinas. Já Paolo Fabrizio Pugno co- 
laborou neste número com um editor 
de adventures, que permitirá a você 
criar suas próprias aventuras. Nesta 
classe de jogos, um artigo deste tipo é 
especialmente aconselhável, visto se- 
rem os adventures programas em que 
o criador pode gerar enredos, cenários 
e personagens com vida própria. Pode 
ser uma excelente experiência você 
criar um jogo para seu amigo tentar! E 
além das inúmeras outras atrações que 
este número de MS lhe traz, os usuá- 
rios da-linha ZX Spectrum poderão 
aprender — e muito — sobre a mani- 
pulação de seu vídeo em Assembler e 
a geração de gráficos, se tiverem o tra- 
balho de digitar o inédito monitor grá- 
fico para o TK90X, de autoria do pro- 
gramador Divino C. R. Leitão, criador 
de diversos jogos comerciais, como o 
Walkirie, O*BERT, Cavernas de marte 
e Pinball, pela marca Ciberne, e que já 
há alguns números integra a equipe de 
MS, na coordenação do CPD. 


NOTA AOS LEITORES DE MS 


* A partir desta edição MICRO SISTEMAS ado- 
tará uma nova classificação no material publica- 
do para a linha Sinclair. Na categoria ZX81, esta- 
rão os programas e dicas compatíveis com os mi- 
cros nacionais TK82, TK85 e CP-200. Quando fa- 
larmos em ZX Spectrum, estaremos nos referin- 
do aos programas que rodam no TS2068 e no 
TK90X (por hora, nosso único compatível com o 
Spectrum inglês). Finalmente, por linha Sinclair 
entenderemos o material que serve tanto para o 
ZX81 quando para o ZX Spectrum. 
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cartas 


O sorteado deste mês, que receberá uma 
assinatura anual da revista 

MICRO SISTEMAS, 

é Ernst R. A. Bergmann, 

do Rio de Janeiro - RJ. 


MAPA DA ROM 7, 


Tenho algumas dúvidas com relação ao 
interessante artigo Apple: O Mapa da ROM, 
encerrado em MS nº 46. São elas: 

a) Consta que o interpretador está na área 
$D000-$D7FF; está correto? 

b) Nas linhas $45-$49 estão os registrado- 
resA,X,Y,PeSouA,X,Y,SeP, respec- 
tivamente? 

c) Na área usada pelo BASIC, $0800-$BFFF, 
não constou que as áreas $0C00-$1FFF e 
$6000-$BFFF não são usadas e que estão 
livres para O usuário. 

Eduardo Bonaz Marques 

São Paulo — SP 


Deacordo com nosso procedimento habi-- 
tual, enviamos sua carta ao autor do artigo e 
recebemos a seguinte resposta: 

“Verifiquei com cuidado os pontos que 
você ressaltou em sua carta. Com relação ao 
primeiro item, realmente houve falha de mi- 
nha parte: O interpretador BASIC APPL E- 
SOFT fica entre $D000 e $F7FF, e não 
$D7FF. A respeito dos outros dois pontos, 
porém, não há erro nenhum. Tudo indica 
que suas dúvidas com relação à ordem de a: 
mazenamento dos registradores e às áreas li- 
vres na memória são originadas do Guia do 
Usuário do Apple. Lá, os autores se embana- 
naram com os registradores e chegaram a 
conclusões erradas, invertendo o stack poin- 
ter e o registrador de flags (S e P). A ordem 
corrreta é: A, X, Y Pes. 

Sobre as áreas $C00-S1FFF e $6000- 
$BFFF, cuidado! Elas não estão livres para 
o usuário! O programa BASIC e suas variá- 
veis começam em $800 e muito frequente- 
mente vão além de $C00, chegando mesmo 
a atropelar as páginas gráficas de alta resolu- 
ção. Do outro lado, as strings começam a ser 
armazenadas logo abaixo do HIMEM: e vêm 
descendo em direção ao início da memória. 
Neste processo de fechamento da memória, 
o BASIC não respeita nada, nem mesmo 
suas páginas gráficas — você deve protegê-las 
através dos comandos HIMEM: e/ou LO- 
MEM: . Já que entramos no assunto, cuida- 
do com a explicação que é dada no livro 
para o LOMEM: (LOMEM: serve para definir 
o endereço em que vão começar a ser arma- 
zenadas as variáveis — o interpretador execu- 
ta automaticamente um LOMEM: para a pri- 
meira posição livre após o programa)." 

Aldo Felício Naletto Júnior 
São Paulo — SP 


LIVROS/BAS A 


No programa Livros/Bas, publicado em 
MS nº 36, a partir do registro 100 do Ar- 
quivo Livros, a listagem feita na tela apare- 
cia com uma linha em branco entre cada re- 
gistro listado. Para resolver este problema, 
fiz algumas pequenas modificações nas li- 
nhas 610 e 1560. As modificações se resu- 
mem em acrescentar, no início das duas li- 
nhas K$ =STR$(K): e, no final de ambas, 
trocar K por K$. 

Sérgio Veludo 
Belém — PA 





SOS AOS LEITORES p, 


Ao estudar Assembler no CP 400, depa- 
rei-me com o problema de geração de som e 
verifiquei que para produzi-lo é necessário 
preparar o Sel 1 eo Sel 2e variar a porta de 
som ($FF20), gerando assim sons. Meu pro- 
blema reside em como controlar os seguintes 
parâmetros dos sons produzidos: frequência, 
duração e volume. Agradeço qualquer ajuda. 
As cartas podem ser enviadas para a Rua Ar- 
lindo Nogueira, 1165/sul, CEP 64000. 
Leonardo Robert de C. Braga 
Teresina — PI 


MS AGRADECE p7, 


Esta é a primeira vez que escrevo a MS, 
apesar de ser assinante há três anos. Desejo 
congratulá-los pelo curso de FORTH, ini- 
ciado em MS nº 49, o qual gostei muito. 
Desejaria agora que fosse publicado um ar- 
tigo sobre os diversos compiladores FORTH. 
Gostaria também que fosse publicada algu- 
ma dica ou programa para destravar os pro- 
gramas do TK90X. 

Sotero Luiz da Silva 
Santos — SP 


CORRESPONDÊNCIAS 9 


Desejo entrar em contato com os Coco- 
maníacos de São Paulo. Correspondências 
para a Rua Manuel Alonso Medina nº 207, 
CEP 04160, Jardim Umuarama. 

J. Ronaldo Bressane Júnior (São Paulo — SP) 


Gostaria de trocar informações, dicas e 
programas com usuários do ZX Spectrum. 
Meu endereço é SHIN QI — 11, cj. 13, casa 
07, CEP 71500. 

Alexandre M. Brito (Brasília - DF) 


PONTO DE VISTA 7 


Li com muito interesse a reportagem 
Software: um produto nacional bruto, em 
MS nº 48. No box sobre produção amado- 
ra, V. Sas. dizem que as idades dos progra 
madores variam de 16 até 50 anos. Isto não 
pode ser uma verdade. 

Olhem para mim: sou programador ama- 
dor, muito ativo e sempre estudando. Iniciei 
minha carreira de programador rio ano de 
1982, com um NE-Z8000. Aprendi BASIC 
como autodidata, exatamente da maneira 
descrita na matéria. Além disso, fabriquei, 
entre outras coisas, um teclado, bem como o 
monitor de vídeo publicado em MS nº 21. 
No trabalho, uso os computadores ao máxi- 
mo. 

Hoje tenho, além do NE-Z, um TK 2000, 
um RINGO, alguns filhinhos pré-programa- 
dores, uma família encantada com os pro- 
gramas, uma mulher com ciúmes do micro, 
uma memória melhor do que nunca e 64 
anos bem contados. 

Eu acho que, na verdade, as idades dos 
programadores variam de 16 (?) até 80 anos. 


Ernst R. A, Bergmann 
Rio de Janeiro — RJ 


Envie sua correspondência para: 

ATI - Análise, Teleprocessamento e 
Informática Editora Ltda., Av. Presidente 
Wilson, 165/gr. 1210, Centro, Rio de 
Janeiro/RJ, CEP 20030, Seção 
Cartas/Redação MICRO SISTEMAS. 





MICRO SISTEMAS, Janeiro/86 


“BOM, É QUE NÃO CAI 
NA MONOTONIA. 








AQUI MESMO NA EMPRESA “MINHA MULHER 
EU FAÇO CURSOS DE NÃO ACORDA MAIS 
APRIMORAMENTO" Com O BIP. 
Fernando Lopes EU VOU E VOLTO, 
Técnico de Manutenção E ELA NEM A 


Luis Alberto Silva 
Técnico de Manutenção 
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Dê uma chance a sua criatividade. 
Com um micro da linha Sinclair, 
algumas técnicas e bom-senso, você 
poderá fazer seus jogos! 


A PROGRAMAÇÃO DE|. 


Giangiacomo Ponzo Neto 


este artigo, trataremos dos elementos constituintes de 

um jogo e sua elaboração, a partir de conceitos básicos, 

procurando exemplificá-los para um melhor entendi- 

mento. Para isso, embora o artigo procure ser o mais 
eclético possível, usaremos o BASIC Sinclair, por ser uma lin- 
guagem de fácil conversão e uso bastante difundido. 

Dividiremos o assunto em dois itens principais: Rotinas Bá- 
sicas, comuns a quase todos os jogos animados e que dão a 
“base” do programa; e Recursos Adicionais e Sofisticações, 
elementos que, mesmo não sendo obrigatórios, podem enrique- 
cer um jogo, tornando-o mais atrativo. 

A primeira coisa a se pensar é, evidentemente, a idéia do 
jogo. Após ter algo planejado, é uma boa prática desenvolver as 
situações imaginadas na tela, para se ter noção de como será o 
visual do que imaginamos. Assim, é necessário desenhar as per- 
sonagens envolvidas numa disposição semelhante a que se de- 
verá ter, mesmo que ainda não exista movimento, o que ajuda- 
rá inclusive a aprimorar o pensamento inicial. A partir daí, pas- 
saremos às Rotinas Básicas, com a descrição das mais comuns. 


DESENHO DOS COMPONENTES 


Existem dois tipos de desenho num jogo animado: os fixos, 
que formam o cenário; e os móveis, que podem sofrer desloca- 
mentos ou sumir e/ou aparecer. Os primeiros são os mais sim- 
ples para se trabalhar (o que não implica em menor complexi- 
dai e deve-se procurar fazê-los usando o tipo de comando 
mais fácil da linguagem, já que devem ser definidos no início 
do jogo e o loop básico do programa não deve passar por eles; 
não importando, assim, a eventual lentidão dos comandos usa- 
dos. Nestes desenhos incluem-se paisagens de fundo, solos e 
outras figuras que permanecerão inalteradas. 

O segundo tipo, desenhos móveis, são os que mais requerem 
cuidados. Sua impressão, em constante mudança de posição, 
deve ser rápida o suficiente para não comprometer a emoção 
do jogo. 

emos dois modos usuais de desenhar na tela: através de co- 
mandos do tipo PRINT, PLOT, etc., ou com uso direto do ar- 
quivo de imagem, usando POKE. O primeiro é mais simples, e 
apresenta vantagem, em termos de velocidade, quando o que 
temos a imprimir, de uma só vez, não é muito pequeno (mais 
de quatro caracteres). Isto porque, apesar do POKE ser mais 
rápido, ele só imprime um caráter por vez, sendo assim neces- 
sários vários deles para formar uma figura maior. 

Desenhar com NT ou PLOT é elementar e só vai depen- 
der de uma boa imaginação; porém, a impressão com POKE é 
um pouco mais complexa. A grande maioria dos micros têm o 
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vídeo fixamente mapeado na memória. Neste caso, o POKE 
leva o endereço do ponto de tela que se quer acessar. No 
ZX81, entretanto, a memória de vídeo tem início variável, de- 
pendendo do tamanho do programa. Para encontrar seu início, 
devemos proceder como no exemplo abaixo: 


196+256*PEEK 16397+1 





O programa anterior imprime uma “nave” nas três primeiras 
posições da tela. A linha 10 encontra o endereço da primeira 

sição. Cada linha de tela tem 32 caracteres e mais um NEW- 
LINE (código 118) na posição 33. Para imprimir a nave na se- 
gunda linha da tela, poderíamos fazer: 





É interessante lembrar que, uma vez encontrado o valor na 
linha 10, esta não precisa mais ser lida, desde que não se perca 
a variável (no caso: A). Portanto, a linha citada só precisa figu- 
rar na inicialização do programa. 

Para maiores detalhes e dicas sobre desenhos na tela, veja o 
artigo “Arte e Técnica na Tela do Computador” (MS nº 29. 


MOVIMENTAÇÃO DE PERSONAGENS 


As figuras móveis são os elementos que representam a ação 
do jogo. Para tal, elas devem ser impressas de forma rápida e 
movidas com igual preocupação. 

Para ilustrar, veremos a maneira mais comum de movimen- 
to, a partir de um caso geral. Para mover uma figura em qual- 
quer direção, da posição X para Y, teremos, basicamente, o 
mesmo método: dada a figura em X, primeiro a apagamos e de- 
pois a imprimimos em Y (estes dois passos podem ser troca- 
dos). Exemplificando: 





Para termos movimento em outra direção e/ou sentido bas- 
ta alterar os números nas linhas 40, 50 e 60. É válido notar que 
alguns micros não usam a formatação de tela por linha e colu- 
na. É o caso dos TRS-80. Para o esclarecimento desta e de ou- 
tras diferenças, é muito interessante ler o artigo “Dialetos BA- 
SIC” (MS nº 46). 

Não se pode, em BASIC, melhorar muito a velocidade des- 
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se movimento. Existem, porém, algumas exceções. Por exem- 
plo, para um movimento horizontal na linha 21 da tela, pode- 
ríamos alterar o procedimento anterior com as seguintes mo- 
dificações, deletando as linhas 10 e 40 e mantendo as outras: 


.B 





Entretanto, para este caso podemos usar outra rotina, bem 
mais simples e rápida: 





Agora não há necessidade de se apagar a figura anterior, 
pois o espaço em branco deixado na string da linha 20 já o faz. 
Existe ainda a possibilidade de se usar o POKE, para uma even- 
tual aceleração da rotina. 

Uma técnica de simulação de maior velocidade é a de se im- 
primir a figura em mais de uma posição, além de seu local de 
origem. Equivaleria em substituir a rotina anterior por: 





Este artifício pode ser usado para obtermos diferentes velo- 
cidades para cada figura. Perceba que o número somado na li- 
nha 30 é sempre igual ao número de espaços em branco antes 
da figura. Neste caso só tem sentido haver espaços do lado es- 
querdo, já que o movimento é só para a direita. Caso a figura 
também se movesse para a esquerda ou em ambos os sentidos 
seriam necessários ainda espaços no lado direito. 

Como idéia final, ilustraremos também um caso de movi- 
mento oscilatório: 


AT 10,10; AT 10.0: "sos" 
=| TO 4 





Jo o 

Esse efeito dá a sensação de superposição de imagens, po- 
dendo ser utilizado para realçar textos ou figuras ou na si- 
mulação de alguns eventos, como a movimentação das hélices 
de um helicóptero, por exemplo. O loop entre as linhas 20 e 
30 serve apenas para definir uma espera. 





ORDENS DO JOGADOR 


Tudo que depende do jogador no desenrolar do jogo decor- 
re do pressionamento de teclas específicas ou através de um 
joystick. Daí a necessidade de comandos que interfiram no 
processamento sem haver parada e alteração do programa. Na 
verdade, o ideal é que, além dele não ter que ser alterado, ele não 
pare. Isso limita muito o uso do INPUT, por ele interromper o 
andamento do jogo. A maneira usual de interagirmos com o 
programa é usar o comando INKEY'$ (GET em alguns micros). 
Um primeiro modo de se tentar usar o INKEY$ para duas ou 
mais ações, decorrendo da mesma tecla, poderia ser realizado 
pela seguinte rotina: 





rem do pressionamento da tecla O. A rotina anterior funciona, 
porém havendo um inconveniente: como não há garantia de 
que você vai pressionar o O exatamente quando o processamen- 
to for para a linha 10, tirando o dedo da tecla na hora em que 
ele sair da linha 20, é impossível ter a certeza de que as ações 
serão cumpridas na ordem estabelecida. Isto é resolvido no 
exemplo abaixo: 





Nesse caso, a hierarquia da sequência será sempre respeita- 
da. Outro método usual de se interagir com o jogo é criar uma 
“bandeira” (uma variável que sinaliza alguma condição), con- 
forme é mostrado abaixo (a bandeira é X, que fica “ligada” 
quando pressionamos a tecla 0). 
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Em alguns casos, pode-se querer uma ação no jogo em 
decorrência de um toque em uma tecla, sem que se precise 
mantê-la pressionada. Isto se consegue substituindo a linha 
SO por 50 GOTO 20 e acrescentando a linha 45 IF INKEY$S 
=“|” THEN LET X = 0. A bandeira agora é usada para sina- 
lizar a condição “desligada”, quando pressionamos a tecla 1. 

O uso do INKEY$ é comum também nos GOTOs condicio- 
nais, cono é exemplificado abaixo: 





IF INKEYS="0" THEN G 





Neste caso, ainda, podemos usar uma bandeira: 
IF X=0 THEN GOTO XXXX 


A bandeira já teria sido definida por um comando INKEY'$ . 

Um detalhe: os exemplos mostrados são simples, e pode- 
ria se perguntar se valeriam a pena os métodos mostrados após 
o primeiro. Porém, há que se entender que poderíamos ter vá- 
rias ações complexas, decorrendo do acionamento de teclas, e 
não só o simples fato de se escrever A e B na tela. Nestes casos, 
os métodos vistos devem ser considerados criteriosamente. 


TESTES DE COLISÃO 


Quando um tiro atinge um avião, ou qualquer outro caso 
em que o cruzamento ou colisão de figuras ocorre, imediata- 
mente o programa deve proceder à uma modificação na situa- 
ção. Esta se traduz normalmente em desvios para outras par- 
tes do programa, em mudança de condições na tela, incremen- 
to ou decremento de contadores etc. Porém, o que interessa, 
a priori, é detectar as eventuais colisões de figuras através dos 
testes. 

Temos dois modos básicos de fazé-los: diretamente das 
informações de tela ou através do armazenamento das posições 
das figuras em variáveis, matrizes ou mesmo em posição mais 
alta da memória, criando um buffer. No primeiro caso, compa- 
ram-se os caracteres das personagens envolvidas com os 
caracteres diversos e procede -se à ação necessária. No segundo, 
comparam-se as posições na tela dos elementos que colidiram 
com o que havia no buffer, e toma-se a decisão programada. 

Usaremos um pequeno programa para exemplificar os dois 
casos. Um míssil surge na tela e tenta acertar uma barreira. 
Pelo primeiro método teremos que, a cada “passo” do míssil, 
testar se a posição para a qual ele progride contém algum cará- 
ter da barreira. O caráter de fim de tela também pode ser tes- 
tado para dar fim ao curso do míssil. Uma alternativa a isso é 
desenvolver um contador dos passos do míssil, que é checado 
periodicamente para sabermos o fim do tiro. Vamos ao exem- 
plo: 
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Uma rápida análise: as linhas 40 e SO definem parâmetros 
do míssil, as linhas de 10 a 30 e 60 desenham o fim de tela e 
a barreira (o caráter da linha 20 é GRAPHICS + SHIFT + A 
e o da linha 130 é um X inverso), as linhas 70 e 80 fazem o 
movimento do míssil e as linhas de 110 a 180 são detalhes 
gerais. O que nos interessa está contido no fim da linha 70 e 
nas linhas 90 e 100. O fim da linha 70 contém AT A,B+3; & 
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que “posiciona a variável do sistema que indica o endereço do 
próximo PRINT na memória do vídeo. Essa variável está, 
no Sinclair, nos endereços 16398 e 16399. O conteúdo do en- 
dereço que ela aponta é testado nas linhas 90 e 100. Se o 
número encontrado for 61 (código de “X” — barreira) ou 
8 (código de “ BS — fim de tela), será dado o desvio previs- 
to. Alguns micros possuem funções especiais que determinam 
condições de posições de tela. O uso de variáveis do sistema 
ou funções especiais depende muito do micro, sendo necessá- 
rio um estudo mais detalhado das suas características para via- 
bilizar o que foi mostrado. 

Para ilustrar o outro método, dé BREAK, em seguida 
elimine as linhas 90 e 100 e o fim da linha 70, acrescentando: 








90 IF (A=X(1) OR A=X(2) OR AsX(3)) AND B+2=Y THEN 
100 IF B+l=Y THEN GOTO 150 


As linhas de 1 a 5 definem o buffer que usamos para guar- 
dar as posições da barreira (o vetor X guarda as linhas e a variá- 
vel Y,a coluna). A linha 90 testa a posição para a qual o míssil 
vai prosseguir, comparando-a com a posição da barreira. A 
linha 100 não precisa testar se as posições não são da barreira para 
detectar o erro do alvo, pois caso fossem, o processamento já 
teria sido desviado pela linha 90. Se a barreira fosse móvel, 
seu buffer deveria ser alterado a cada movimento. A grande 
diferença entre os métodos reside no fato de que o segundo 
não se importa com o que há na tela. 

O uso de um ou outro método varia muito, porém na 
maioria das vezes, o segundo é mais lento. E um modo de se 
acelerar o primeiro caso é fazer só um teste na linha 90, eli- 
minando a linha 100. Esse teste verificaria se existe algo na 
posição desejada, e, em caso positivo, desviaria o processamen- 
to, onde então se saberia que tipo de colisão havia ocorrido, 
com acerto ou não. A velocidade aumentaria, pois o teste 
a cada passo do míssil seria um, ao invés de dois. 


CONTADORES GERAIS 


Os contadores são elementos comuns a praticamente to- 
dos os tipos de jogos existentes. Eles representam o balanço 
geral da situação do jogador num dado momento, pois contam 
os seus pontos marcados, vidas restantes, número de inimigos 
eventualmente atingidos, tempo decorrido ou restante, recor- 
des anteriores e muitos outros parâmetros vitais para o desen- 
volvimento do jogo. 

A técnica em si não traz nada de complicado. Na verdade, 
um contador pode ser um simples incremento em uma variá- 
vel do tipo LET C = C + 1, onde C representa a expressão 
matemática de alguma situação real na tela. Eventualmente, 
poderíamos ter decremento na variável (no caso da perda de 
uma vida, por exemplo); ou ainda, o número a somar ou 
subtrair poderia ser maior ou menor que 1 (por exemplo, se 
determinado alvo valesse 10 pontos, outro 20, etc.). 

Usando o último programa visto, poderemos mostrar al- 
guns exemplos de contadores, se incluirmos as seguintes ins- 
truções: 





«rn TAB 2;"0 MI 





Agora temos dois contadores no programa. Rode-o e veja 
a diferença. Observe que ele só vai fazer cinco lançamentos 
(devido ao contador da variável L), que é o número de mísseis. 
Além disso, o programa dirá quantas barreiras foram atingidas 
(através do contador da variável P), que é o número de acertos. 


WE 


As linhas 6 e 7 definem os contadores, as linhas 45 e 125 
os incrementam e a 175 faz o teste de fim de mísseis. Perceba 
que na linha 100, quando comparamos B + 1 com Y, estamos 
usando um contador (B + 1) qué, quando chega ao limite 
(Y), ocasiona uma ordem de desvio. 

Obviamente, o programa mostrado foi feito apenas para 
mostrar onde se localizam e como são feitas certas rotinas 
elementares. Para um jogo ser realmente bom, ainda deve 
contar com outros aspectos. 

Fazer um bom programa implica não só no uso puramente 
computacional de instruções, mas também em técnicas gerais 
de aperfeiçoamento. Essas técnicas fogem ao estilo “receita 
de bolo”, pois variam muito de acordo com o que se pretende; 
e é nisso que entra a subjetividade do programador ou a sua 
arte. Tais aspectos dão a diferença básica entre um programa 
e outro que, à primeira vista, fazem a mesma coisa. Agora, 
veremos Recursos Adicionais e Sofisticações. 


VELOCIDADE 


Mais do que um recurso, a rapidez é necessária para propor- 
cionar uma ação-reação estimulante para o jogador. Existem 
micros mais lentos que tornam quase impossível a criação de 
bons jogos, por torná-los monótonos, notadamente quando 
forem usadas linguagens de alto nível como, por exemplo, 
o BASIC. Se pudermos utilizar o BASIC compilado, teremos 
melhores resultados. Porém, se não dispusermos deste recurso, 
torna-se quase obrigatório o uso da linguagem de máquina. 
Algo neste sentido pode ser visto no artigo “Jogue em Ritmo 
Assembler” (MS nº 40). Outra técnica consiste em evitar 
certos procedimentos mais lentos por natureza. Uma discussão 
mais prolongada sobre este e outros aspectos se encontra nos 
artigos “Anime-se e Faça Bons Programas em BASIC” (MS nº 
23) e “Otimize seus Programas em BASIC” (MS nº 31). 

Nas rotinas apresentadas, tentamos discorrer sobre a moro- 
sidade de algumas e a vantagem de alternativas mais velozes e 
igualmente eficientes. 


MEMÓRIA DISPONÍVEL 


Embora não seja um recurso por si só, uma maior disponi- 
bilidade de memória possibilita um maior número de situações. 

Por outro lado, a economia de memória é, muitas vezes, 
um fator limitador no desenvolvimento de jogos. O melhor 
exemplo disso são os adventures: quanto menor a capacidade 
de armazenamento, menos situações se tornam possíveis. En- 
tretanto, como no caso da velocidade, existem determinados 
métodos que levam a um menor consumo de memória. Os 
principais seriam: evitar comentários, espaços em branco e ins- 
truções dispensáveis e usar strings em vez -de números. Porém, 
muito mais pode ser feito. Veja o artigo “Utilização da memó- 
ria de seu Sistema de Modo Mais Eficiente” (MS nº 5), para 
mais dicas. 


COMODIDADE 


Um jogo deve ser confortável. Certas vezes, pode ser inte- 
ressante sacrificar a existência de algum comando para não 
comprometer a facilidade de ação por parte do jogador. Exem- 
plificando: imagine um jogo (não é fato raro...) que use os co- 
mandos básicos de um joystick para movimentos e tiro, porém 
que necessite, por exemplo, de um comando especial de loco- 
moção (caso típico do hiperespaço do “Asteroids”). Ora, é ter- 
rivelmente incômodo abrir mão do joystick para pressionar 
uma tecla do micro. Ideal seria se todos os comandos pudes- 
sem ser acionados no primeiro. Em linguagem de máquina po- 
de-se, com certa facilidade, comparar o pressionamento de 
mais de uma tecla ao mesmo tempo. Uma opção, então, seria 
usar o botão de tiro e mais um comando do bastão para ordens 
especiais, como a citada. " 

Se os comandos forem do. teclado, há que se tomar cuida- & 
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Quem tem o UP-1237 da Parks 
não tem um modem. Tem quatro. 


O Modem UP-1237 é o quatro em um da Parks 
porque opera em transmissões assíncronas a 
velocidades de 1200/75 bps ou 300 bps, no padrão 
CCITT ou no padrão Bell. 

Você vai encontrar nesse modem outros 
diferenciais que a Parks desenvolveu para oferecer o 
máximo em tecnologia: 

* dispositivo de resposta automática incorporado, 
possibilitando a formação de redes de 
computadores usando comunicação via linhas 
telefônicas discadas. 

* comutação manual modem/telefone a partir de 

MATRIZ: Porto - RS - Av. Paraná, 2335 - fone (0512) 42-5500 - Tix. (051) 1043 - FILIAIS: São Paulo - fone (011) 

572-7171 * Curitiba - fone (041) 232-1814 e Rio de Janeiro - fone (021) 240-7443 e Recife - fone (081) 325-2123 

REPRESENTANTES: Brasilia - fone (061) 272-1825 * Salvador - fone (071) 241-3091 * Belo Horizonte - fone (031) 


201-5800 * Vitória - fone (027) 227-3122 * Blumenau - fone (0473) 22-1700 * Uberlândia - fone (034) 234-4600 e Cuiabá 
fnne (NES 2391.8090 é Campo Crande . fane (NET 2RI 4921 





chave no painel frontal, permitindo acesso aos 

grandes bancos de dados nacionais e internacionais. 

* seleção de velocidade no painel frontal. 

e facilidade de teste de enlace analógico local para 
diagnóstico do equipamento. 

* visualização da situação de configuração e dos 
circuitos de interface por meio de onze indicadores 
luminosos no painel frontal. 

Como você sabe, para a Parks o melhor é a 
perfeição. Por isso, você terá a segurança de um 
rigoroso controle de qualidade e garantia de 2 anos. 

Comprove. 


)JliParks 
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do coma disposição das teclas, buscando um maior conforto. 
Elas não devem ser adjacentes (para não as confundirmos), 
nem muito. distantes, e deve-se procurar distribuir as mãos no 
teclado de forma a não sobrecarregar a tarefa de uma delas. 


COMPLEXIDADE 


Para jogos de muita ação, é preferível que haja até uma cer- 
ta simplicidade na idéia básica, e comandos “curtos e grossos”. 
Como exemplo clássico temos os “Defenders” (usualmente 
com apenas movimentos verticais e de tiro). Por outro lado, 
jogos que impliquem maior raciocínio podem ser mais comple- 
xos, e alguns chegam mesmo a necessitar disso como fator de 
semelhança a realidade. É o caso de simuladores-de-vôo, que 
dispõem de inúmeros comandos, e tendo nisto um dos seus 
maiores atrativos. E 


INCREMENTOS GERAIS 


Um jogo ganha muito em emoção quando traz em si um 
sentido de competição; mesmo que esta seja dirigida contra 
nós mesmos (por exemplo, ao procurarmos bater nossos pró- 
prios recordes). A simples existência de um High Score na tela 
aumenta o interesse do jogador. Neste sentido, ainda podemos 
contar com outros recursos; bônus a cada etapa concluída com 
êxito; tempo extra em caso de realização de alguma tarefa difi- 
cil; elogios para os grandes feitos ou até frases lamentando más 
atuações. 

Quanto mais difícil for alcançar um objetivo, maior interesse 
temos em atingi-lo. É óbvio que existem limites humanos que 
não podem ser ultrapassados; logo, ao se estipular, por exem- 
plo, o número de pontos de um jogo que se necessita para ga- 
nhar tempo extra, deve haver a preocupação que estes sejam 
humanamente possíveis de se alcançar. 


SOM 


O som é, sem dúvida, um importante fator no que diz res- 
peito à integração (envolvimento) do jogador com o que ocor- 
re na tela, De fato, o som se presta, em primeira instância, a 
dar maior veracidade à simulação de uma situação qualquer no 
jogo, como o tiro de um canhão. 

Existe, porém, um problema operacional no uso do som de 
forma simples, já que, sendo o processamento das instruções 
sequencial, não é possível que o tiro de canhão — para usar o 
exemplo anterior — seja visto na tela exatamente ao mesmo 
tempo que é ouvido seu ruído. A solução, obviamente, passa 
pela necessidade de se diminuir ao máximo a diferença entre 
uma ação e sua audição. O problema, então, fica tão mais pa- 
tente, quanto mais lento o equipamento ou a linguagem usada. 
Instruções próximas (se possível, subsequentes) são desejáveis 
para criar um efeito de simultaneidade. 

Outro problema é que os comandos BASIC de geração de 
som são, via de regra, apenas de notas musicais e não sintetiza- 
dores de voz ou geradores de ruído. Habilidosamente, porém, 
pode-se fazer uso de notas mais baixas (menores frequências) 
como ruídos ou de notas intercaladas com silêncio, em ritmo 
acelerado, para simular helicópteros, metralhadoras, etc. 

Um uso mais simples e eficiente do som é como detalhe 
para indicações gerais: recordes batidos, início ou fim de jogo, 
troca de naves e outras, justamente por não requisitarem tanto 
a simultaneidade já citada. 

Em equipamentos sem som pode ser usado um recurso ilu- 
sório, que é o de escrever na tela o ruído do que se quer res- 
saltar, próximo ao agente da ação. Apesar de parecer sem gra- 
ça, à primeira vista, alguns BUMs e BANGs bem localizados du- 
rante um jogo empolgante podem conseguir bons resultados. 


COR 


Diferentemente do som, que pode ser simulado nos micros 
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mudos (até por rotinas especiais), a cor não admite meio ter- 
mo: ou se tem ou não; e em caso de existência, seus comandos 
são razoavelmente fáceis de se compreender, sendo necessário 
apenas usar um pouco de bom senso na escolha das cores, sem 
exagero. Como exemplo de abuso, poderíamos citar os primei- 
ros programas de TV coloridos, que, ávidos de demonstrar o 
novo recurso, desenvolviam cenários de gosto duvidoso com 
todas as cores do espectro misturadas em cada quadro. 

Para dispor de alguma alternativa visual, os micros sem cor 
podem tentar uma simulação de “cinza”, como aqueles carac- 
teres do ZX81, alternando pontos pretos e brancos (GRAPHI- 
CS+SHIFT+A ou H), recurso esse que pode ser ampliado se 
dispusermos de alta resolução. 


RESOLUÇÃO GRÁFICA 


Como a cor, este é um recurso de tela, sendo porém mais 
útil que o primeiro em certos casos. É a velha história: como 
representar um sapo ou uma galinha com um caráter apenas? 
Se tivermos alta resolução (e facilidade com sua operação, o 
que nem sempre ocorre), poderemos então desenhar nosso bi- 
cho, ponto a ponto. Sem este recurso, teremos que nos esfor- 
çar para usar, dentro do conjunto de caracteres do micro, 
aqueles que mais convierem ao que se tenta representar. Caí- 
mos, assim, outra vez no uso do melhor recurso: nosso bom 
senso. Um asterisco representando uma aranha não é tão mal 
assim, já uma letra “A” é lamentável... 

Som, cor e resolução gráfica, em verdade, caminham jun- 
tos. Com o surgimento dos jogos “3D”, como o Zaxxon — 
para citar um dos mais famosos — multicoloridos, com mil sons e 
ótima resolução gráfica, talvez não seja exagero ver um certo 
romantismo-saudosismo naqueles primeiros videogames, com o 
Space Invaders original. Mas daqueles bichinhos em duas di- 
mensões e preto e branco tiramos uma grande lição: quando se 
tem boas idéias e se usa a cabeça, os recursos não se tornam 
indispensáveis. 


CONCLUSÕES 


Tudo o que vimos não tem a pretensão de ensinar ninguém 
a ser um mestre na arte de fazer jogos. São apenas algumas téc- 
nicas e refinamentos que julgamos úteis, e, às vezes, indispen- 
sáveis. Contudo, aquele toque final, que vai dar a nossa marca 
registrada, depende só da nossa criatividade, que representa o 
que sentimos e pensamos a nível individual, posto que somos 
distintos em idéias e gostos. 

Usar as rotinas apresentadas, empilhando-as em camadas es- 
tanques, seria pouco criativo e resultaria num jogo ruim. Todas 
as partes de um programa deste tipo devem interagir. Imagi- 
ne um avião voando, a uma meladidaa X qualquer, e um ca- 
nhão embaixo, esperando o momento mais adequado para o 
tiro. Não tem o menor sentido haver um “freio” no avião 
quando atiramos, por causa do maior tempo que precisamos 
para desenhar o tiro. Esses outros detalhes devem ser levados 
em conta quando fizermos um jogo. Aí então podemos dizer: 
“mas em BASIC não dá!”. E muitas vezes não dá mesmo; e 
temos que recorrer ao Assembler. Mas, não fiquemos nos cul- 
pando. Afinal, as linguagens de alto nível foram criadas para, 
justamente, termos melhores condições de programar. Se elas 
são, por vezes, muito lentas e nos obrigam a voltar às lingu: 


a- 
gens primitivas, a culpa não é nossa... a 





Giangiacomo Ponzo Neto cursa Engenharia Elétrica na UFRJ, onde vem 
ganhando experiência em programação FORTRAN. Trabalha também 
em BASIC e Assembler no seu micro da linha Sinclair e utiliza ainda cal- 
culadoras programáveis. 





MICRO SISTEMAS, Janeiro/86 


Priniere (48) - recolha as peças do 


computador 
Piromania (48) - apague os incêndios 
The Pyramid (48) - aventura na pirâmide 
30 Tank Duel (48) - superbatalha de 
tanques 

3D Starstrike (48) - guerra nas estreias. 
Son of Blagger (48) - recolha os objetos 
Psytron (48) - defenda sua base lunar, em 3D 
Wheelie (48) - pilote uma moto no 
subterrâneo 

Fall Guy (48) - baseado no filme DURO 
NA QUEDA 


Booga-Boo (48) - ajude o sapo 


UR 
jinl 


E 
H 


rally 
UTILITÁRIO/APLICATIVOS 
CP-300/500 


Capitaln - O cozinheiro 

SALVAR O MUNDO das garras do terrível Dr. NEWDOS/80 - recolha as pérolas 
propagação rn ode (4 dogs 0 oo Re, 
Rescue Raiders (1/64) - pilotando um Na A Pág ro ros ELA 
helicóptero, comande suas tropas, durante 

esta incansável batalha. 

Bruce Lee (1) - lute karatê como o famoso 

Bruce Lee. Mate os ninjas e os lutadores de 

sum, e complete as mais incríveis fases. 

Mr, Do () - você é um mágico que deverá Trashman (48) - ajude a manter a cidade limpa 
proteger o seu pomar de uma terrível JetPac - construa os 


praga Selddad Attack - combata os invasores 
Were Is Carmen Sandiego (54) - seja um 


pa maus o = Aquaplane (48) - uma lancha rum mar de 
; ndo DO O andado dardo FA Moon dueto no velo oeste 
Hungry Horace - divertido Pac-Man 


“Spys Demise (F] jogo de agente secreto 
Star Blazer - combate aéreo 


Invasion Force - destrua a nave mãe 


o Jump Hallager (48) - pule os obstáculos 
& Spiders - enfrente as aranhas Ear mo RL onde 


Tor (comércio ção no espaço 
(48) - comércio e ação no 
AS] ad o es Om a 
Tutankhamun (48) - explore a tumba 
Se harder go ip ide 
Tornado (48) - pilote o avião. Cenário em 3D 
Planetoids - aventura espacial 

Match Point (48) - fantástico tênis em 30 
Cavelon (48) - uma aventura no castelo 
Galaxy Attack (48) - várias fases no espaço 
Chess - jogo de xadrez 

Android 2 (48) - mate os robôs. Cenário em 3D 
pr fr pal deitada 
Lab 


TerrorDaktil 4D (48) - 
(48) iara 


Swashbuckler Il - duelo de espadachins 
Temple Asphai - aventura no templo 
Flight Simulator (F) - simulador de vôo 
One on One (J) - basquete com 2 jogadores 








Desejo receber os seguintes programas pelos quais estou enviando um cheque nominal à ATI Editora Ltda., Av. Pres. Wilson, 165 - Grupo 1210 - Centro, CEP 20.030 
Rio de Janeiro - RJ, Despesas de correio já incluídas. 




















Computador: ( )CP-300/CP-500( JAPPLEII(  ) SPECTRUMITK 90X. ITEM (s) PREÇO Cr$ 
Com:.... KRAM. Desejo os programasem:(  J)FITA( )DISKETTE. 

NOME 

END.: CIDADE: 

UF: CEP: TEL: TOTAL Cr$ 














Softline - Av. Graça Aranha, 145, SIj. 01 - Centro - Rio de Janeiro - RJ - CEP 20.030 - Tel.: (021) 262-6968 





Aqui o jogo é liberado. Escolha o número, faça suas apostas 
e divirta-se com este programa para a linha TRS-80. 








Roleta 


Antônio José Ávila da Silva 





ste jogo, que utiliza 13 Kb de memória RAM, foi de- 
senvolvido em um DGT-100, compatível com o TRS- 
80, Por ser de domínio popular, ele é muito fácil de ser 
jogado, mesmo por aqueles que não o conhecem. 
Os códigos adotados estão explicados no próprio programa, 
e sempre que quiser revé-los tecle (R). 
Veja agora algumas dicas: 
. Em algumas linhas deste programa, que utilizam o coman- 
do PRINT, deve-se adotar o comando (| ), para localização de 
impressão na próxima linha. A linha 160 é um exemplo. 
e Linhas que possuam mais de 240 caracteres devem ser 
editadas após o 2409 caráter para a inclusão dos restantes. Este 


e "ROLETA 11 REVISAO 7/84 Ac J.AVILA 

100 CLSICLEARI00:RANDOM:DIMFS(37),0(21),R(21),S(21),08(21),X(21) 
2000:F=1:PRINTCHR$S(23)19470,"R O L E T A“PEFORAASITOAINEXTECL 
S:PRINTOZO,“INSTRU.OES (8/N)“F !GOSUB280: IFUS()"S”,CLSFGOTOZOGEL 
SECLS:PRINTOZ7, “ROLETA” 

110 PRINTOBA, “ABREVIA.OES ADOTADAS" :PRINT“PR-PRETO VE-VERMELHO 
ME-MENOR MA-MAIOR PA-PAR IM-INPAR 

CI-COLUNA 1 C2-COLUNA 2 CI-COLUNA 3 

DI-DUZIA 1  D2-DUZIA 2  DI-DUZIA 3 

120 PRINT"PL-PLENO  SP-SEMI-PLENO  RU-RUA  QU-QUADRA  ES-ESG 








UICHO 
PL-PLENO 1201231261 PL-PAGA 35 VEZES 
SP-SEMI-PLENO 20/23/26! SP-PAGA 17 VEZES 
RU-RUA 1102103! RU-PAGA 11 VEZES” 
130 PRINT” QU-QUADRA rosisst QU-PAGA B VEZE 
s 
roziso! ES-PAGA 5 VEZES 
ES-ESGUICHO 1e:241 Ci-C2-C3 2 VEZES” 
140 PRINT” 1171201 Di-D2-D3 2 VEZE 
s 


1161191 VE-PR-IM 1 VEZ 
ME-MA-PA 1 VEZ” 
150 FORAA=1TOAINEXTISET(S7,19)1SET(SB,19)2SET(61,22):SET(60,22)1 
SET(66,25)1SET(67,25) SET(54,29):SET(55,29) SET(SA, 41) FSET(SS, 41 
»rGOsuBi doze 
160 PRINTYMENOR IME! DE 01 A 18 
MAIOR IMAI DE 19 A 36 





Ci - tosioMi — - 341 
c2 - 102105! - - 1351 
C3 - 1031061 - - ta61 


O ZERO E" DA BANCA 

470 PRINTIPRINTORemenannamam 
ne »m»0 cacife e' de 1 
ecle (K).” 

180 PRINT“Quant idade de fichas acima de 900 vai para a memoria. 
Jogadores (A) (B) (C) (<D) (E) «tecle para jogar). 

Para direcionar CN “CHR$(93)” “CHR$(94)5PRINTODE (1) à (9) par 
a apostar e para anular (a) (b) (c) (d) (e).” 

190 PRINT“Para girar a roleta (G), para rever as instrutoes (R) 
e para contabilidade (L). Maximo 4 apostas por Jogador .”s 1608 
UBL020:IFF=20RF=4THENDIO 

200 CLS:PRINTIPRINTEINPUT“QUANTOS JOGADORES (MAXIMO 5)“sAZIFA(L 
ORA)STHENZOGELSEPRINT/NOME DOS PARTICIPANTES COM 4 LETRAS" :A=A+L 
2B=124:N=25:P=641 

210 0=0+12IFOC)A, INPUTASCO) FASCO)=LEFTSCAS(O),4)1G0TOZ1O 

220 CLS2FORO=1TOSEK(O)=120(0)=100:1FASCO)="",AS(O)=” “aNEXTEL 
SEASCO)=ASCO)+* “IASCO)=LEFTSCAS(O),4) NEXT 

230 PRINTOO,” ————. -—— 


» COMANDOS NO TECLADO ummana 
fichas, para adquirir outro t 




















= bege” 5 
240 PRINTO6A,” 103 1 06109 | 121451 48 121 12412713 
Ora ta 1 1 ' 1- 

==|="==|==——1"y 

250 PRINTOLVZ,” 102105108 1111141147 120 1231 26 1 
29 1321351 











=i==""p-""0p-"=4-———4 
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é o caso, por exemplo, da linha 430. 

e Na linha 370, responsável pelo comando da roleta, 
se introduzir uma rotina de som para facilitar o jogo, m 
que esta não se assemelhe com o ruído produzido pela bc 
ao girar na roleta. 

370 OUT 255.0:0UT 255,1:70602,F$(C);: FOR ... 

e Todos os comandos PRINT deste programa foram es 
com ?. 





Antônio José Avila da Silva é Engenheiro Civil, possui um DGT- 
dois anos e trabalha atualmente na Direção Geral do INAMPS. 


- sea) Ego [e] 

260 PRINTOIZO,” 101104 107 1 10 1 13 1 46 1 49 122125 
28 134 134 | 1-1 ' 

mesfonent===|" 

270 PRINTGAMO,” | CL ICDICIIPRIVELMELMA IPA! IM 
D3 1 D2 1 D1 1 
- —" E SET(B,N)ISET(B+1,N):IFF=10RF=4THENGOSUB960 | 
40:G0TO750ELSEZ80 

280 US=INKEYS: IFUS=CHRS(B) ,F=2:00T0340ELSEIFUS=CHRS(9),F=2:60] 
30ELSEIFUS=CHRS(91),F=2200T03S0ELSEIFUS=CHR$(10),F=2:60T0360EL 
IFUS="K” 
us 


B 
290 IFUS="C",A=60:E=B1 1=01P=667200TOAOOELSEIFUS="D”, 
0:P=480:G0TO4OOELSEIFUS="E”, A=112:E=1671=0:P=6931G0TO400ELSEIF 
="4", T=1 1GOTOM OELSEIFUS="2", T=2:G0T0410ELSEIFUS="3", T=32G0TO 
ELSEIFUS="4", T=4:60T0410 
300 IFUS="5",T=526070410ELSEIFUS="6", T=6:GOTOALOELSELFUS="7",] 
*6OTO410ELSEIFUS="8”, T=B1GOTOALGELSEIFUS="9”, T=72GOTO4M GELSEIF 
="5",W$="R“2X$="U“TRETURNELSEIFUS="N”,W$=XSPRINTO NºSRETURN 
310 IFUS="T”, 1000ELSEIFUS="G", GOSUB97010=1001C=1RESTOREIP=64 
=RND(37) !FORG=1T037 !READFS(G) ENEXT EGOTOI70ELSEIFUS="R”, F=4 Dm 
=6412CLS:G0TO1 10ELSEIFUS="L”,D=0:6070930 
320 IFUS="a”,E=11P=704:GOTOP60ELSEIFUS="b”,E=S:P=7172G0TOP6VEL 
IFUS="c”,E=9P=730260TOP40ELSEIFUS="d” ,E=131P=743260TOPAGELSE 
$=“e”,E=171P=7561G0TO960ELSE2HO 
























+54 IFB)124THENB=4160TOZI0ELSEZ! 
3 5: IFR(4THEND=124160T0230ELSE2 
350 RESET(B,N):RESET(B+1,N):N=N-32 IFNCITHENN=25:60TOZI0ELSEZI 


NI FRESETCB+S,N)EN=N+3: TFN)2STHENN=1 EGOTOZI0ELSEZI 








OUT255, 1: PRINTAGO2, FS(C) | sFORM=1TOOSTEPSO:NEXTEC: 
12IFC)37THENC=1 10=0+2 
380 IFO()9000RCC)D,PRINTAGOZ,” “2FORG=1TOOSTEP! 


NEXT:GOTOI7O 

390 PRINTOGOZ,” “19602,FS(C);*IFD=1THENPRINTAS/S 
A BANCA VENCEU”; :GOTO990ELSEFORG=2TODIREADZ,S$,1$,L$,MSINEXTEL 
«goTos20 

400 GOSUB97OISET(A,29) ISET(A+S,29) ESET(A+2, 29) ISET(A+3,29) 160 
so 

410 IFB=40RB=124THENZB0ELSEIFN=1 THEN620ELSEIFN=4THENAZOELSEIF! 
THENAGOELSEIFN=10THENSOGELSEIFN=13THENS40ELSEIFN=14THENSGOELSI 
N=19THEN620ELSEIFN=22THEN660ELSEZSO 

420 IFB=9THENQS="PL“:U=31V=3ELSEIFB=14THENQS="SP” IU=IIV=6ELSE 
=19THENQS="PL”IU=4:V=6ELSEIFB=24THENQS="SP“:U=6 1 V=9ELSEIFB=29 
NQ5="PL"3U=9:U=9ELSEIFB=34THENQS= "SP :U=9:V= 1 2ELSEIFE=39THENG! 
PL“ sU=12:V=12ELSEIFB=44THENQS="SP”sUmiDeymis 

430 IFB=49THENGS="PL”FU=152VU=1 SELSEIFB=S4THENQS="SP“ Us iSIVes 
SEIFB=59THENQS="PL"2U=18:V=1 BELSEIFB=44THENQS="SP”IU=1B:V=21EL 
IFB=69THENGS="PL“1U=21 1 V=21ELSEIFB=74THENQS="SP” am 2Í EU=24ELSE 
B=79THENQS="PL“IU=241V=24ELSEIFE=B4THENGS="SP”IU=24sV=27 

440 IFB=B9THENGS="PLY:U=272V=27ELSEIFB=PATHENQS="SP“:U=273V=3 
SEIFB=99THENQS="PL”3U=301V=30ELSEIFB=1 04THENQS="SP“U=30:V=331 
EIFB=109THENQS="PL”:U=332VU=33ELSEIFI SP” Um 33: V= 36 
EIFB=119THENQS="PLOZU=36:U=36 

450 GOTOSBO 

460 IFB=9THENQS="SP”sU=2:V=3ELSEIFB=14THENQS="QU" :U=2:V=6ELSE 
“QU IU=SIV=PELSEIFB=29' 
NOS="SP“1U=81V=92ELSEIFB=34THENQS="QU”SU=B:V=12ELSEIFB=39THEN! 
“gp”IU=11:V=12ELSEIFB=44THENQS="QU U=ÍÍzv=is 

470 IFB=49THENQS="SP“:U=142V=15ELSEIFB=SATHENQS= "QUO Um ÍA: ums 
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SEIFB=S9THENQS="SP” sU=172V= 1 BELSETFE=64THENQS="QU” IU=172V=D1ELSE 
IFB=69THENQS="SP“:U=20:V=21ELSEIFB=74THENQS="QU" :U=20:V=24ELSEIF 

B=79THENQS="SP”:U=23:V=24ELSEIFB=B4THENQS="QU” sU=232:V=27 

480 IFB=B9THENQS="SP":U=26:V=27ELSEIFB=94THENQS="QU" :U=26:V=30EL 

SEIFB=99THENGS="SP“2U=293U=30ELSEIFB=104THENQS="QU” sU=29:V=33ELS 

EIFB=109THENQS="SP” :U=32:V=33ELSETFB=1 14THENQS="QUO :U=32:V=36ELS 

EIFB=119THENQS=" SP” FU=IS:V=36 

avo poTOsBo 

500 IFB=9THENGS="PLOIU=2:V=2ELSEIFE=14THENQS="SP”sUI=2:V=SELSEIFE 

=19THENQS="PL“U=STU=SELSEIFB=24THENQS="SP” 2U=5:V=BELSEIFB=29THE 
NQ$="PLY:U=B:V=BELSEIFB=34THENQS="SP”sU=BIV= LELSEIFB=39THENQS =” 
PL“3U=11:V=1 LELSEIFB=44THENQS="SP“IU=112U=14 

510 IFE=49THENQS="PLO:L=14:V=14ELSEIFE=SATHENGS="SP”U=142V=17EL 
SEIFB=S9THENQS="PL“2U=172V=17ELSEIFE=64THENQS="SP” :U=17:0=20ELSE 
IFR=69THENQS="PL:=20:V=20ELSEIFB=74THENQS="SP”:U=207V=23ELSEIF 

B=79THENQS="PL“:U=23:V=23ELSEIFE=BATHENQS="SP“:U=23:V=26 

520 IFB=B9THENQS="PLOIU=262U=26ELSEIFB=P4THENGS="SP”IU=26:U=29EL 

SEIFB=99THENQS="PLT2U=29:V=29ELSEIFB=104THENQS="SP” :U=293:V=32ELS 

EIFB=109THENQS= “PL” :U=32:U=32ELSEIFB=1 14THENQS="SP”:U=32:V=35ELS 

ETFB=119THENQS="PL"3U=35:U=35 

530 GoTOsBO 

SAO IFB=9THENQS="SP“sU=1 :V=2ELSEIFB=14THENQS="QUO 2 U=1 V=SELSEIFE 

=19THENAS= “GP” :I=4:V=SELSEIFB=24THENGS="GU” 2U=4V=BELSEIFB=29THE 

NOS="SP“2U=7:V=BELSEIFB=34THENQS=" QU" EU=7 E U=1 SELSEIFB=39THENGS =” 

SP“ TU=102U=11ELSEIFB=44THENQS="QU" FU=102U=14 

550 IFB=4A9THENQS="SP”sU=i 3:V= 1 4ELSEIFB=S4THENQS="QUOEU=132V=17EL 

SEIFB=59THENGS="SP”:U=162V=17ELSEIFB=64THENQS="QU" 2U=16:V=20ELSE 
IFB=69THENQS="SP” :U=19:V=20ELSEIFB=74THENQS="QUT :U= 19: V=23ELSEIF 

B=79THENQS="SP“:U=22:V=23ELSEIFB=84THENQS="QU" 1U=22:V=26 

560 IFB=B9THENQS="SP” :U=25:V=26ELSEIFB=94THENQS="QU” FU=25:V=29EL 

SEIFB=99THENQS="SP“:U=28:V=29ELSETFB=1 04THENGS="QU” sU=282V=32ELS 

EIFB=109THENQS= "SP" sU=31:V=I2ELSETFB=1 14 4THENQS="QU“U=31 EU=ISELS 

EIFB=119THENQS="SP”SU=34:U=35 

570 GOTOSHO 

580 IFB=9THENQS="PL”sU=1 :U=SELSEIFB=14THENQS="SP"sU=1 :V=4ELSEIFE 
=19THENQS="PL“:Um4:V=4ELSEIFB=24THENGS="SP“3U=4 3 Ve 7ELSEIFB=29THE 

NQ$=“PLYIU=7 Un 7ELSEIFA=34THENGS=" SP” EU=7 Vel ELSE IFR=39THENQS=” 

PL” 2U=10:V=1 0ELSEIFB=44THENQS="SP“IU=ÍOsV=II 

590 IFB=49THENQS="PLU2U=132U=13ELSETFB=54THENGS=" SP” sU=133V=16EL 
SEIFB=S9THENQS= "PL IU=16:V=1 6ELSEIFE=44THENQS="SP”EU=16:V=19ELSE 
IFB=49THENGS="PL”U=19:V=1 9ELSEIFB=74THENQS="SP“3U=192V=22ELSEIF 
B=79THENQS="PL”:U=222V=22ELGEIFB=84THENQS="SP“IU=225V=25 

600 1IFB=89THENQS="PL” SU=25:V=25ELSETFB=94THENQS="SPY:U=25:V=26EL 

SEIFB=99THENGS="PL”:U=28:V=20ELSEIFB=104THENQS="5P”:U=282V=31ELS 
EIFB=109THENQS="PL“FU=31:U=31ELSEIFB=114THENQS="5P“sU=31 tV=34ELS 
EIFB=119THENGS=“PLOSU=34sV=34 

610 GoTOSBO 
620 IFB=9THENQS="RU”Um4 VS 3ELSEIFB= 1 4THENQS="ES” USA FU=GELSEIFE 
=19THENGS="RUT Us 4: V= ELSE IFB=24THENQS= "ES" sU=4 3 V= 9ELSELFB=29THE 
NOS ="RU” 2 U=7 *U=PELSEIFB=34THENQS="ES“:U=7 3 U=12ELSEIFB=39THENG! 
RU” sU=10sV=12ELSEIFB=44THENQS="ES“sU=10:V=1s 

630 IFB=49THENQS="RU" FU=134V= LSELSEIFB=54THENGS="ES”FU=13:U=4 BEL 
SEIFB=59THENQS= “RU” 2 U=162U=1BELSEIFE=64THENQS="ES"sU=$63V=21ELSE 
IFB=69THENQS="RU”EU=19:V=21ELSEIFB=74THENOS= "ES" sU=s 9 V=24ELSELF 

B=79THENOS=“RU” :U=22:V=24ELSE IFB=B4THENGS= "ES" :U=22:V=27 

640 IFB=B9THENGS="RU”IU=25:U=27ELSEIFB=94THENQS="“ES” FU=25:VU=30EL 
SEIFB=99THENGS="RU”:U=28:V=I0ELSEIFB=104THENQS="ES” 1 U=28:V=33ELS 
EIFB=109THENQS="RU”:U=34:U=33ELSEIFB=114THENQS="ES"SU=34 :V=36ELS 
EIFB=1 1 9THENQS="RU” EU=34:V=36 

650 GoTosBO 

660 IFB=9THENQS="C1“2U=1:U=34:GOTOSBOELSEIFB=19THENQS="C2":U=2:U 
=951G0TO4BOELSEIFB=29THENGS="C3”1U=37V=362G0TO6BOELSEIFB=39THENQ 
S="PROIU=0:V=O:GOTOGBOELSEIFB=49THENQS="VE” EU=O:V=0:GOTOSBOELSET 
FB=59THENQS="ME“sU=4 :U=18160TOGHO 

670 IFB=69THENGS="MA” SU=197U=36ELSEIFB=79THENQS="PA”U=0:U=0ELSE 
IFB=B9THENQS=" IH" :U=0:V=0ELSEIFB=99THENQS="D3” Um 25: U=36ELSEIFE= 
109THENGS="D2" :U=13:V=24ELSEIFB=1 19THENQS="D1“IU=1 :U=12ELSEZDO 
680 EmEsitI=1+471FE)21THENF=2260TOZB6ELSEDD=INTCE/4+.75)21FID4AN 

DF<>4THENDO=DD-1 :G0TO780 

690 IFF=ATHENU=Q(E) VS (E) 2GOTO710ELSEGSCE)=05:08="":Q(E)=USRCE) 
=VIS(E)=T 

700 IFC(DD)(S(E),S(E)=02G0TO7BOELSEP=P+642XCE)=P3PRINTAP,GS(E)” 
“1 2DOSUB720:C(DD)=C(DD)-S(E):PP=640:1FE=170RE=1BORE=190RE=20THEN 
PRINTS(E) 2G0TO7S0ELSEPRINTS(E)” 1”; :G0TO750 

740 IFX(E)=00RS(E)=0THENSBOELSEIFE=170RE=1BORE=190RE=20THENPR INT 
BXCE) OSCE)” “;EGOSUB720:PRINTSCE); 2GOTOSBOELSEPRINTAXCE). GSE)” 
”1200SUB720:PRINTS(E)” |”; :GOTOGHO 

720 IFUCIOTHENPRINTUSING"OM “;UFELSEPRINTUSINGCMM “5U 

730 IFUCLOTHENPRINTUSING"ON” ;USELSEPRINTUSING"NH” 5 VZ 

740 RETURN 

750 D=D+12PRINTOPP,KCDIFAS(D)FIIFC(D)C=0THENPRINT” 000” ;ELSEIFC( 

D)CIOTHENPRINTUSING” 0OH";C(D) ELSEIFC(D)(100THENPRINTUSING” OMM 
“pC(D)sELSEPRINTUSING” WWN“SCC(D); 

760 PP=PP+1I:IFD(STHENPRINT” 1“; EGOTO750ELSED=0 

770 IFF=3THENB20ELSEIFF =4THENE=0:GOTOGBOELSEZHO 

780 GOSUB970:PRINTOS92, "LIMITE DE APOSTAS DO JOGADOR “AS(DD)s 260 
TOzme 

790 FORW=1TOLS:PRINTOI000,”“:NEXT:PRINTOZO, “COMPRA DE CACIFE”,,, 
“ NA SUA VEZ TECLE (5/N).7208=” COMPROU 100 FICHAS" :R$=” CACIFES 
NA MEMORIA” :D=0 
D=D+12:PRINTAS(D) ; :GOSUB2BO: IFUSC)XS.PRINTOSZK (DI =KCD)+120(D) 

D)+10071FK(D))9THENK (D+5) =K (D+5)+B2K (D)=K(DI-BIPRINT” “KIDS 
13R$ 

810 IFD)4THENGOSUB1020:0=0:F=4:GOTOZI0ELSEPRINT:GOTOBOO 

820 PRINTOG20, “APURA AO”; 3F=32L=L +12H=03T=03PS=GS(L)SR=Q(L)IS=R( 

Lys T=S(L)SIFLIZOTHENDDO 

830 IFT=0THENB20ELSEIFPS=“PL“ANDR=ZANDS=Z,H=7835+T:GOTO920ELSEIF 

PS="SP“ANDR=ZANDS=Z+30RPS="SP“ANDR=ZANDS=Z+10RPS="SP“ANDR=7-1AND 

S=ZORPS="SP“ANDR=Z-3ANDS=Z,H=T817+T:GOTOPDO 

B40 IFP$="RU“ANDR=ZANDS=7+20RP$="RU”ANDR=Z-1ANDS=7+10RPS="“RU“AND 

R=Z-2ANDS=Z,M=T11+TEGOTOPDO 

850 IFPS="QUVANDR=ZANDS=Z+40RPS="QU"ANDR=Z-1ANDS=7+30RPS="QUTAND 

R=Z-4ANDS=Z0RPS="QU"ANDR=Z-3ANDS=Z+1 THENH=T2B+T:GOTO92O 

B60 IFPS="ESTANDR=ZANDS=Z+50RP$="ES“ANDR=7-LANDS=7+40RP$="ES“AND 

R=Z-2ANDS=7+30RP$="ES“ANDR=2-3ANDS=2+20RPS="ES“ANDR=Z-4ANDS=Z+10 

RPS="ES“ANDR=Z-SANDS=Z,M=T"5+T:G0TO920 

870 IFPS="DI“ANDR=1ANDS=12ANDZ)=1ANDZ(=12THENH=T+T+T:GOTOP20ELSE 
IFP$="D2"ANDR=1 3ANDS=24ANDZ )=1 3ANDZ(=24THENH=T+T+T:GOTO920ELSEIF 

P$="D3"ANDR=25ANDS=I6ANDZ)=25ANDZ(=36THEMH=T+T+T:GOTOPZO 

B80 IFMS="CITANDPS="C1”,H=T+T+TIGOTOP20ELSEIFMS="C2"ANDPS="C2”,M 
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=T+T+TIGOTO920ELSEIFHS="CI"ANDP$S="C3”,M=T+T+TIGOTOP2O 





B90 IFIS="ME“ANDPS="ME”,M=T+TEGOTOP20ELSEIFIS="MAVANDPS="MA”,M=T 
+T=GoTOs2e 
900 IFSS="VE“ANDPS="VE”,M=T+TIGOTOP20ELSEIFSS="PROANDPS="PR”,M=T 
+T:60TO920 


P10 IFLS="PA"ANDPS="PA”,M=T+TELSEIFLS="IM"ANDPS="IM”,M=T+T 

920 D=0:PP=640:X=INT(L/4+.75):PRINTA62O, ” FC OO=C00+ 

MEIFCCX) )9OOTHENC(X4S)=C(X+5)+C(X)-BOGIC(XI=B00:GOTO7SOELSEIFC(X 

IC LOBANDE (X+5) (POOTHENC OO =0(X)+0(X+5)2C(X+5)=0:GOTO7SOELSEIFC(X 

ICI OBANDE (X+5) 900 THENC(X) =B00:C(X+5)=C(X+5) -BOO:GOTO7SOELSE7SO 

930 FORW=1TO!S:PRINTOL000,““:NEXTICLSSFORD=1TOS:H(DI=(C(D+5)+CCD 

DI=(KCD)B100)-(K(D+5) 0100) EPRINTAS(D)” “HCD)” FICHAS“INEXT 

740 PRINTIINPUTTVALOR DA FICHA EM Cr$"; YIFORD=1TOS:IFHCD)COTHENS 

$=" DEVE CrS"ELSESS=” RECEBE Cr$” 

950 PRINTAS(D)” “SS; 2PRINTUSINGOMANHH.SABSCH(D) 

EXT:PRINTO740, "SALDO DA BANCA CrS“FEMYa-L2F=42FF 

16070230 

960 FORD=ETOE+32R=INT(E/4+.75)3C(R)=C(R)+S(D)2S(DI=0:PRINTOP,” 
“7 2P=P+ 64 NEXTID=02PP=640:F=52GOSUB9BO:GOTO75O 

970 PRINTOS76,* 























“p RETURN 
980 PRINTAS76,” QUEM JOGA ? (A) <B) (C) 
D) <E) “p2P=641 RETURN 
990 FORD=1T020:S(D)=0:NEXT:D=0:L=0:PRINTOG19,” TECLE (T)";s 





GoTozse 
PRINTOZO4,” 





1010 PRINTOBIZ,” 


“7 *F=2:GOSUB9BO:GOTOZHO 

1020 PRINTAVBO, “Barra de espato”; 

1030 US=INKEYS: IFUS=CHRS(32),CLS:RETURNELSELO3O 

1040 DATABO-VERDE, 32-VERMELHO, 15-PRETO, 19-VERMELHO, 04-PRETO,24-U 
ERMELHO, 02-PRETO, 25-VERMELHO, 17-PRETO, 34-VERMELHO , 06-PRETO,27-VE 
RHELHO, 13-PRETO, 36-VERMELHO, 11-PRETO, 30-VERMELHO, 08-PRETO 

1050 DATAZI-VERMELHO, 10-PRETO, 05-VERMELHO, 24-PRETO, 16-VERMELHO, 3 
3-PRETO, 01 -VERMELHO. 20-PRETO, 14-VERMELHO, 31-PRETO, 09-VERMELHO, 22 
“PRETO, 18-VERMELHO, 29-PRETO, 07-VERMELHO, 28-PRETO, 12-VERMELHO, 35- 
PRETO, 03-VERMELHO, 26-PRETO 

1060 DATAIZ,VE,MA,PA,C2,45,PR,ME, IM,C3,19,VE,MA, IM,CL,4,PR,ME,PA 
+C1,24,VE,MA, IM,C3,2,PR.ME,PA,C2,26,VE,MA, IM,C4,47,PR,ME, IM, C2,3 
4. VE,MA,PA,C1 

1070 DATAS,PR,ME,PA,C3,27,VE,MA, IM,C3,13,PR,ME, IM,C1,36,VE,MA,PA 
C3,11,PR.ME, IM,C2,30,VE MA, PA,C3,8.PR.ME,PA,C2,23,VE MA, IH, Co, 4 
PR.ME,PA.CI 

1080 DATAS, VE, ME, IM,C2,24,PR,MA,PA,C3,16,VE,ME,PA,C4,33,PR,MA, IM 
«03,1. VE, ME, IM,C1,20.PR,MA,PA,C2,14,VE.ME,PA,C2,31,PRAMA, IM,CL,9 
«VE,ME, IM,C3 

1090 DATAZO,PR.MA,PA,C1,18.VE,ME,PA,C3,29,PR,MA, IM.C2,7, VE, ME, IM 
+C1,28,PR,MA,PA,CS,142,VE,ME,PA.C3,95.PR.MA, IM,C2,3.VE, ME. IM,C3,2 
6, PRAMA, PACO 























* Em MS nº 46, no programa Missão Impossível, pág. 55 
tagem apresentou erros em algumas linhas. Na linha 86, após “PA- 
RABÉNS”, o correto é haver apenas uma vírgula, enquanto que a 
nie Do já deve começar com PRINT. Confira abaixo como ficam 
as linhas. 


66 PRINICURS(23):PRINTTAB(G)*P À RA 
5, CHR$(131)) :PRINTE208, “Seu escore e 





BENS Iº,TAB(6)STRINGS(1 


«“um dos 5 maiores do dia. 













B6 PRINTE6SG,*- - - om 

Em MS nº 48, na Rodada MS, programa Projeto de filtros 

passa-faixa, pág. 75, a listagem apresentou incorreções. Na linha 

Edi deve ser substituído por N, ficando assim: 1970 PLOT 
+N,6. 

Também ficou faltando a última linha da listagem, ou seja, a li- 
nha 5010 GOTO 10. ss 

e Em MS nº 50, na reportagem O Mercado Editorial de Infor- 
mática, pág. 10, no quadro com os livros mais vendidos, saiu erra- 
do o endereço da Editora Campus. O endereço certo é: Rua Barão 
de Itapagipe, 55, CEP 20261, RJ. 

* Em MS nº 50, no artigo A função UDG do TK90X, pág. 42, 
quarto parágrafo, a sexta linha (”... se utiliza de 8 bits.”), apresen- 
tou erro, A frase correta é ”...se utiliza de 8 bytes.” .Já na figura 
10, a linha 9010 apresentou falhas. Corrija-a para: 

3010 SAVE “garotog"CODE USR “a”, 


* Em MS nº 50, no programa Maçã ou Maca, pág. 36, listagem 
1, a linha 6000 saiu com erro; no lugar de OF, deve-se usar 60. A 
linha fica assim: 








600G6- 60 00 C2 00 C4 00 ca 00 
º Em MS nº 50, Curso de FORTH, pág. 60, no programa se- 
guinte ao décimo quarto parágrafo, o traço (-) depois de | deve 
ser substituído por um ponto (.). O programa fica assim: 
3 MOSTRERETORNO 5 O DO 1. LOOP 
e Em MS nº 50, no programa Maçã ou Maca, pág. 34, houve 
erro no décimo quinto parágrafo. O correto é: “A linha 110 coloca 
o endereço do início da tabela de formas (24576 em decimal, ou 
seja, 6000 em hexadecimal);”. 












Imprimir em quatro direções ou armazenar uma tela na memória do 
seu micro, compatível com o ZX Spectrum, são apenas alguns dos 
recursos que você conseguirá com o uso deste Monitor gráfico. 








Monitor gráfico 


— — Divino Carlos R. Leitão 


s usuários da linha ZX Spectrum têm agora um pro- 
grama para auxiliá-los na criação de telas de apre- 
sentação, menus e qualquer tipo de gráfico que uti- 
lize apenas os caracteres, inclusive os redefinidos. 

Este Monitor Gráfico é uma ferramenta que permitirá o uso 
de alguns recursos gráficos do seu micro, diretamente no vídeo, 
enquanto você cria uma tela. Alguns dos comandos disponíveis 
são: INK; PAPER; FLASH; BRIGHT e INVERSE, sendo que o 
comando OVER também foi implementado, mas apenas para 
que o efeito possa ser visto no vídeo, pois para armazenar os 
dados referentes a esse comando nas telas criadas, seria neces- 
sário aumentar o tamanho das mesmas em pelo menos 704 by- 
tes e uma das características das telas do monitor é justamen- 
te economizar memória. Porém, como você poderá ver, este 
comando não fará falta. 

Você ainda poderá encher o vídeo com um caráter; copiar a 
tela na impressora; imprimir em gpa direções; inserir e su- 
primir caracteres; fazer um SCROLL para cima e para baixo; e 
se o seu micro é um TK90X, poderá acessar a função UDG 2, 
diretamente no Monitor. 

Uma das vantagens de uma tela criada pelo Monitor, além 
dos recursos gráficos prontos para serem usados, é que cada 
tela gasta apenas 1625 bytes e já traz incluída uma rotina de 
impressão em Assembler, tendo ainda um UDG próprio, que 
não afeta o uso do UDG presente na memória. As telas criadas 
por este processo poderão ser alocadas em qualquer posição 
disponível da RAM e chamadas por RAND USR, sendo que a 
única preocupação do usuário será deixar livre na memória um 
espaço de 1625 bytes para cada tela que desejar juntar ao seu 
programa. 

Após criar uma tela, grave-a em fita cassete usando a opção 
7 do menu. Para recuperar a tela gravada, use o comando 
LOAD “ “ CODE 00%. onde XXXX é o endereço de início 
da tela e também será o endereço de chamada para imprimi-la 
no vídeo. 

OBS.: Para chamar uma tela diretamente de uma rotina em 
Assembler, o par BC deverá ser carregado com ” valor 
antes de ser executado o comando CALL XXXX, portanto não 
vue de carregar o par BC ou haverá problemas. 

Há também a opção de gravar as telas no formato padrão do 
micro, com a opção 5 do menu, ou ainda gravar e carregar 
apenas o UDG. Com isto, você poderá criar, em fita cassete, 
um banco com vários UDGs diferentes. As opções 1 e 2 do 
menu servem respectivamente para iniciar a criação de uma 
tela ou editar a tela que estiver na memória. Cuidado ao usar a 
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mão 1, pois se houver alguma tela na memória, ela será apa- 


a Monitor Gráfico não permite que se trabalhe com telas 
que não tenham sido criadas por ele, pois usa um buffer pró- 
prio de trabalho com um sistema específico de armazenamen- 
to distribuído da seguinte forma: os 49 bytes iniciais contêm a 
rotina de impressão que acompanha cada tela, depois vem 
1408 bytes, alternando caráter e atributo, ou seja, primeiro 
byte = CHR$; segundo byte = atributos do CHR$ anterior, 
e assim sucessivamente até totalizar as 32 colunas e 22 linhas; 
quanto aos 168 bytes restantes, são reservados para Os carac- 
teres do UDG próprio que cada tela contém. 

Além das rotinas em linguagem de máquina, o programa 
tem uma parte em BASIC, para facilitar o uso das rotinas pa- 
drão de gravação e UDG 2 

Para digitar o programa, use o “Monitor Assembler no 
TK90X” (publicado em MS nº 51). Inicialmente, deverá ser 
criada a linha 1 REM com 4800 bytes para receber os dados 
em hexadecimal da listagem 1. Você irá reparar que não há 
4800 dados nesta listagem, isto porque os bytes restantes serão 
preenchidos pelo próprio programa ao ser utilizado. Digite os 
dados com atenção e no final entre com a listagem abaixo, 
usando-a para conferir o trabalho: 


100 REM EXECUTE COM -> RUN 100 
110 LET S=0 

120 FOR F=2959 TO 26633 STEP 2 
130 LET S=S+PEEK F-PEEK (F+1) 
140 PRINT AT 10,13:F 

150 NEXT F 

160 IF S=4194 THEN PRINT TAB 24 
"OK! OS DADOS ESTAO CORRETOS.”: 
STOP 

170 PRINT * FLASH 1: TAB Sy CHA” 
ERRO DE DIGITACAO.”, TAB 5:“CONFI 
RA OS DADOS...”,:STOP 


Se o resultado for negativo, use o “Monitor Assembler no 
TK90X” para conferir a entrada de dados e corrija os erros. 
Após ter certeza de que o programa foi digitado corretamente, 
dê o comando direto POKE 23756,0 para proteger a linha com 
as rotinas em Assembler, e ela então irá se transformar em linha 
O e não poderá mais ser editada. Em seguida, elimine o “Moni- 
tor Assembler no TK90X” e as linhas de conferência para 
então entrar com a listagem 2. Antes de testar o programa, gra- 
ve tudo com o comando direto: SAVE “MG” LINE 7. 

OBS.: Se o seu micro não é um TK90X, mude a linha 11 
para 11 GOTO 9. 
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COMO USAR O MONITOR 


Na figura 1, você tem uma tabela com as teclas de controle 
do Monitor e o seu significado, sendo que devem ser 
pressionadas em conjunto com CAPS SHIFT(CS) e outras com 
SYMBOL SHIFT(SS). O cursor indicará qual tipo de impres- 
são está sendo usada. As convenções são: 

C — imprime maiúsculas ou minúsculas junto com CS; L — 
imprime minúsculas ou maiúsculas junto com CS; G — impri- 
me apenas os caracteres gráficos; S — imprime apenas os sím- 
bolos gráficos; e U — imprime apenas os caracteres redefini- 
dos. 


ROTINAS DE IMPRESSÃO NO VÍDEO 


Se você já programa em linguagem de máquina ou está inte- 
ressado em aprender, continue a leitura pois a partir de agora 
serão explicadas algumas das técnicas de impressão no vídeo 
em Assembler. 

Quem já utilizava linguagem de máquina nos modelos Sin- 
clair (ZX-81), sabe que para imprimir no D-File basta colo- 
car o código do caráter a imprimir no endereço corresponden- 
te à posição desejada do D-File. Nos compatíveis:com o ZX 
Spectrum, a área correspondente ao D-File dos modelos ZX-81, 
que a partir de agora será chamada apenas de MV (Memória de 
Vídeo), tem 6144 posições e mais 768 bytes que correspon- 
dem à área de atributos, — ATTR, para simplificar — portanto 
a impressão em Assembler fica um pouco mais complicada. 

Em primeiro lugar, para se usar a MV é necessário abrir an- 
tes um canal de comunicação com o processador de vídeo. A 
maneira mais fácil de fazê-lo é usando uma rotina da ROM. 
Veja como, no exemplo 1: 


3E02 LD A, 02H 1A=2 QUE E' O EAMAL A 
ES Mio CALL 1601H rABRE E CANAL cs 
9 RET 


FRETORN 
OBS.: O canal 2(02H) corresponde apenas às 22 primeiras 
linhas de vídeo, de O a 21; para se usar as linhas 22 e 23, que 
chamaremos de linhas de edição, o canal aberto terá que ser 
O(00H) ou 1(01H). Você deverá ter bastante cuidado quando 


desejar imprimir nestas duas áreas do vídeo, pois, apesar de es-” 


tarem em sequência, o uso das mesmas é bem distinto. Mais à 
frente, você verá outras explicações sobre as diferenças das 
mesmas. 

Após abrir o canal de vídeo, podemos imprimir direto na 
MV e a maneira mais prática ainda é usar as rotinas da ROM, 
mais especificamente o conhecido (para os já iniciados em As- 
semble; 1) RST 10. Para quem não conhece, o RST 10 é um co- 
mando de um só byte que dá acesso às rotinas de impressão 
dos micros Sinclair. Veja o exemplo 2: 


3E30 LO A,30H —sA=48 QUE E” CODIGO DO CHRS O 
D7 RST 10H rIMPRIME O CHR$ CONTIDO EM A 
co RET FRETORNA 


Como pode ser visto, não é tão difícil assim, mas não se ale- 
gre antes do tempo, pois, com o que vimos até agora, o máxi- 
mo que podemos conseguir é imprimir um caráter descontrola- 
damente na MV, sem saber qual é a sua cor, fundo ou mesmo 
posição onde será impresso. Para controlar estes pequenos de- 
talhes, existem os caracteres de controle, que chamaremos de 
CTRL, ao todo são 32. Na figura 2, você tem uma tabela com 
a indicação das funções para as quais estes caracteres podem 
ser utilizados na impressão. 

Os códigos de 0(00H) a 3(03H) devem ser usados seguidos 
de CALL 1601H (veja exemplo 1) para abrir os canais corres- 
pondentes, sendo que o canal 3(03H) corresponde à impresso- 
ra. Já os CTRL de &06H) a 23(17H) — com exceção de 7(07H); 
14(0EH) e IS(OFH) que não devem ser usados na impressão 
— são todos usados seguidos de RST 10. Veja o exemplo 3: 
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ATIVA INPRESSAO MAS LINHAS DE EDICHO 
ATIVA IMPRESSAO MAS LINHAS DE EDICAO 
2 | ATIVA IMPRESSAO MAS LINHAS DE 6 A 24 
ATIVA A IMPRESSORA 

USADOS 






e) 
rum 
er 


CTABULA 16 ESPADOS) 
(CTRL DO BASIC) 






CURSOR PARÁ DIREITA 


3E16 Lo A,16H — sA=22 QUE E" O CTRL DE PRINT AT 

D7 RST 10H 1PREPARA PARA RECEBER PARAMETROS 
aEes Lo A,OSH  sA=5 QUE E* O NUMERO DA LINHA 

D7 RST 10H ARoRIGIONA NA LINHA 

3E6A LD ADA! sA=10 QUE E” O NUMERO DA COLUNA 

D7 RST 10H 1POSICIONA NA COLUNA 

co RET FRETORNA 


Após executar esta sequência, o computador estará pronto 
para imprimir na linha 5, coluna 10, o caráter que for ordena- 
do. Atenção, isto só é válido se o canal da MV corresponde às 
linhas O a 21 (exemplo 1) já tiver sido aberto antes. 

Para estabelecer os parâmetros de cor, brilho e outros re- 
cursos de seu micro, use os CTRL de 16(10H) a 21(15H). Veja 
o exemplo 4: 


aE10 Lo A,10H — sA=1ó QUE E" O CTRL DE INK 

Dz RST 10H 7PREPARA PARA RECEBER PARAMETROS 
3€07 Lo A,O7H — sA=7 QUE CORRESPONDE A COR BRANCA 
D7 RST 10H FHUDA INK PARA BRANCO 

co, RET sRETORNA 


Para mudar o PAPER, executa-se a mesma sequência, sendo 
que os códigos de cor variam de (00H) ou preto, até 7(07H) 
que é a cor branca, o que corresponde à disposição das cores 
no teclado. Para mudar os outros parâmetros (FLASH; BRI- 
GHT;, INVERSE e OVER), usa-se antes do segundo RST 10 
apenas 1(01H) que significa ligado ou 0(00H) que significa des- 
ligado. Veja exemplo (5) com o FLASH: 


3€12 Lo A-i2H  rA=18 QUE E" O CTRL DE FLASH 

D7 RST sem PPREPARA PARA RECEBER PARAMETROS 
3€01 Lo Ar 01H | FA=í QUE CORRESPONDE A LIGADO 

D7 RST 1eH FHUDA FLASH PARA LIGADO 


co PET vRETORNA 


Após executar o último exemplo, o caráter a ser impresso 
estaria com o FLASH ligado, ou seja, ficaria piscando, alter- 
nando seu INK e PAPER. 

Os últimos exemplos valem para todos os CTRL que podem 
ser usados na impressão, basta chamar RST 10 após o acumu- 
lador ter sido carregado com o CTRL desejado e depois repe- 
tir a operação tendo sido o acumulador carregado com um có- 
digo específico da função, o qual pode sero valor de uma cor, 
a posição de uma coluna ou o correspondente a ligar e desligar 
a função. A única exceção é o CTRL de PRINT AT que preci- 
sa de dois parâmetros após ser acionado, ou seja, linha e colu- 
na, nesta ordem. Como opção para o PRINT AT, você pode 
usar a rotina da ROM a partir de 8202 (200AH), sendo que an- 
tes é necessário carregar o par BC com o valor da linha (C) 
e coluna (B). Veja no exemplo 6, o que acontece se usarmos 
esta rotina: 


3E16 LD A,46H  sA=22 QUE E! CTRL DE PRINT AT 

7 RSI 16H sPREPARA PARA RECEBER PARAMETROS 

79 LD Ac FA=VALOR DA LINHA CONTIDO EM C 

D7 RsT 16H *POSICIONA LINHA 

78 LD A,8 FA=VALOR DA COLUNA CONTIDO EM 8 

Dz RsT 10H *POSICIONA COLUNA » 

co RET YRETORN e 
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Todos os exemplos mostrados até agora permanecem depois 
de usados, até que seja executada uma rotina que os modifi- 
que, ou seja, se você abrir um canal da MV, ele permanecerá 
aberto até outro canal ser ativado; como algumas rotinas do 
sistema podem desativar este canal, é conveniente que ele seja 
aberto toda vez que se iniciar quer rotina de impressão. 
Quando se imprime um caráter veja exemplo 2), a posição do 
cursor avança uma coluna ou, se for a última coluna, volta à 
coluna O e avança uma linha; ao atingir a linha 22 será solicita- 
do um SCROLL. 

Na área de edição acontece algo semelhante, mas as linhas 
são contadas de baixo para cima, ou seja, a linha 23 passa a 
ser a linha O. Uma outra diferença da área de edição é que para 
se imprimir com segurança, nesta área, é necessário que ela 
esteja limpa. Se tentarmos a impressão de um caráter sobre 
outro já existente, será executado um SCROLL no vídeo 
todo. Portanto, use a área de edição com muito cuidado 
para não perder o controle da impressão. 

Para deixar mais claro o uso do CTRL, o exemplo a seguir 
mostra como se pode encher o vídeo com um caráter, que será 
o correspondente ao A do UDG, cujo código é 144 (90H). 
Para cor de fundo (PAPER), será colocado o verde e a cor do 
caráter (INK) será o preto, que deverá ficar piscando (FLASH 
=1), e também não terá muito brilho (BRIGHT = 0), além de 
não ser invertido (INVERSE =0) e não ter transparência 
(OVER = 0). Aqui vale um aparte para os que ainda não com- 
preenderam o comando OVER: a sua finalidade é criar prio- 
ridade de impressão, um caráter impresso com OVER = O 
sobrepõe um outro quando for impresso, ocupando todo o 
espaço; já um caráter com OVER = 1, será misturado com o 
caráter que estiver abaixo dele, criando um novo desenho que 
corresponderá à m dos dois, dando ainda a ilusão de 
que o caráter com OVER =1 é transparente. Vamos então 


ao exemplo 7: 


3E02 Lo A,O2H  sA=Z QUE E” O CANAL DO My 
cDeL16 CALL 1601H ABRE CANAL 2 


oLo LD BC,00H 4B=0 (COLUNA)  C=0 (LINHA) 

cDeAZo CALL Z00AH ROTINA DA ROM QUE POSICIONA 
PPRINT AT ATRAVES DE PARAMETROS 
1DO PAR DE REGISTRADORES BC 





3E10 Lo Ar10H  sA=16 QUE E" O CTRL DE INK 
D7 RST 10H PREPARA PARA RECEBER PARAMETROS 





3E00 to A, 00H | sA=O QUE CORRESPONDE A COR PRETA 

D7 RST 10H sMUDA INK PARA PRETO 

sets LD A,i1H  sA=17 QUE E” O CTRL DE PAPER 

D7 RST 10H 7PREPARA PARA RECEBER PARAMETROS 

3E04 LD ArO4H — FA=4 QUE CORRESPONDE A COR VERDE 

D7 RST 10H 7MUDA PAPER PARA VERDE 

3E12 LD A,142H  sA=18 QUE E” O CTRL DE FLASH 

D7 RST 10H sPREPARA PARA RECEBER PARAMETROS 

3E04 LD A.O1H — sA=i QUE CORRESPONDE A LIGADO 

D7 RST 10H THUDA FLASH PARA LIGADO 

3E13 Lo A,13H  FAziS QUE E" O CTRL DE BRIGHT 

D7 RST 10H 3PREPARA PARA RECEBER PARAMETROS 

3E00 LO A, 00H | ;A=0 QUE CORRESPONDE A DESLIGADO 

D7 RST 10H FMUDA BRIGHT PARA DESLIGADO 

3E14 LD sA=20 QUE E* O CTRL DE INVERSE 

D7 RST FPREPARA PARA RECEBER PARAMETROS 

3E00 LD 7A=0 QUE CORRESPONDE A DESLIGADO 

DZ RST FHUDA INVERSE PARA DESLIGADO 

3E15 Lo rA=21 QUE E* O CTRL DE OVER 

D7 RST sPREPARA PARA RECEBER PARAMETROS 

3E00 to 7A=0 QUE CORRESPONDE A DESLIGADO 

D7 RsT 3MUDA OVER PARA DESLIGADO 

3E90 LO FA=144 QUE E" O CODIGO DO PRIMEIRC 
FCHR$ DO UDG 

D7 RsT 10H sRETORNA 


Esta rotina sozinha não tem muita utilidade, afinal uma 
tela cheia de caracteres piscantes não serve para muita coisa, 
mas se você conseguir entender o funcionamento da mesma, 
conseguirá imprimir em linguagem de máquina qualquer cará- 
ter. 

O programa que acompanha este artigo é um bom exemplo 
do que pode ser feito quando se domina bem as técnicas de 
impressão do seu micro. É claro que, para se chegar à criação 
de um bom programa, não basta dominar a impressão em 
Assembler, mas já é um bom passo para se chegar lá. 

As dúvidas que ainda persistirem após a leitura atenta artigo 
e a análise dos exemplos, serão respondidas com prazer pelo 
autor, mas antes prócure certificar-se de que não é capaz de 
respondê-las sozinho. Garanto que assim seu aprendizado será 
muito mais proveitoso. 





Divino Carlos R. Leitão é formado em Desenho Mecânico pelo Senai. É 
Programador de microcomputadores há três anos, tendo inclusive alguns 
programas comercializados pela Ciberne Software. Atualmente, trabalha 
no CPD da revista MICRO SISTEMAS, onde desenvolve jogos e aplicati- 
vos em equipamentos que utilizam o microprocessador Z-80. 


SE FE OA 


16 





MICRO SISTEMAS, Janeiro/86 


MICRO SISTEMAS, Janeiro/86 











D7 C9 3A 87 67 47 47 47 
C9 06 03 77 23 10 FC C9 
3E 02 CD 01 16 06 18 CI 
44 0E 3E 02 CD 16 06 
02 C3 44 0E 3E co 01 
16 3E 16 D7 3E DZ ar 
D7 C9 3E 00 CD 01 16 3E 
16 DZ AF DZ AF D7 C9 34 
BE 67 FS CD 68 43 47 F1 
88 26 F7 C9 2A 20 54 41 
42 45 40 41 53 20 2A 10 
27 EB 03 64 00 0A 00 O 
00 00 00 20 20 30 30 31 
31 32 323333 34 34 35 
35 36 36 37 37 38 38 39 
39 61 41 42 42 63 43 64 
44 65 45 66 46 67 47 68 
48 69 49 6h 4h 68 48 60 
AC 6D 4D 6E 4E GF 4F 70 
S6 71 5172527353 74 
54 75 55 76 56 77 57 78 
58 79 59 7A SA ZA 00 31 
BE 32 8D 33 SC 34 BB 35 
BA 36 69 37 88 38 BF 20 
20 00 31 21 32 40 33 23 
34 24 35 25 36 26 37 27 
38 28 39 29 30 SF 72 3€ 
74 3E 79 SB 75 SD 6F 38 
70 22 61 7E 73 7C 64 5C 
66 67 7D 68 SE 6A 20 
6B 28 6C 3D 7A JA 63 3F 
76 2F 62 2A 6E 2C 6D ZE 
20 20 69 7F 00 61 90 42 
P1 63 92 44 93 65 94 66 
95 67 96 68 97 49 98 GA 
99 6B PA 60 9B 6D 9C 6E 
9D 6F PE 70 9F 71 AO 72 
Ai 73 A2 74 A3 75 A4 20 
2o 00 30 00 31 01 32 02 
33 03 34 04 35 05 36 06 
37 07 00 5365 6C 65 63 
69 6F 6E 65 20 GE 6F 76 
6F 20 49 4E 4B 20 20 28 
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00 53 65 60 43 63 69 6F 








dE 65 20 GE 6F 76 6F 
se 41 50 45 52 
30 20 61 20 37 20 29 00 
49 4E 48 20 SO 41 50 20 
46 AC 53 20 42 52 47 20 
4F Só 52 20 49 4E 56 20 
20 4C 49 4E zo zo 

2o 20 20 2 45 4E 43 
48 45 52 F 20 56 49 
4445 4F 43 4F 4D 
2D 3E 20 26 26 3C 20 
28 53 29 49 4D 20 20 4F 
55 20 20 28 4E 29 41 4F 
2o 3F 00 4D 4F 44 4F 20 
44 45 20 49 4D 50 52 45 
53 53 41 4F 20 30 20 00 
4D 41 49 55 53 43 55 4C 
“153 AD 49 ss sa 
43 55 4C 41 53 20 47 
S2 41 50 48 49 43 53 
20 20 53 59 4D 42 4F 4€ 
oO 20 20 20 55 44 47 
43 48 52 24 20 53 4F 4) 
20 4F 20 43 55 52 53 4F 
52 20 3D 206 20 3E 20 
oe 26 3C 20 20 20 41 
AZ 43 44 45 46 47 48 49 
“A 48 4C 40 4E 4F SO 51 
52 53 54 55 20 20 4C 49 
“E 00 20 26 90 91 92 93 
94 95 96 97 98 99 PA 
PC PD PE PF AO AL AZ A: 
A4 20 20 43 4F 4€ ez 
22 BC EC Cacaso 
4F 4E 49 54 4F 52 20 20 
47 5241 46 49 43 4F 20 
BC BC BC BC ECO o sa 
e2 14 865 02 
14 01 31 144 
s2 “1 52 20 4E 4F Só 
41 20 54 45 4C 41 02 05 
BS 02 04 BA 02 1A 85 02 
04 BA 02 03 14 01 32 14 
00 20 20 45 44 49 54 41 
52 20 54 45 4C 41 20 41 
54 55 41 4C 02 
BA 02 1A 85 























os Ba 

















238 
s23 
ses 


85 02 = 450 


447 


02 03 14 01 33 14 00 20 = 129 
20 41 4349 4F 4E 44 52 = 541 
20 55 44 47 20 32 02 07 = 347 
BS 02 04 BA 02 1A 85 02 = 440 
04 BA 02 03 14 01 34 14 = 240 
00 20 20 27 53 41 56 45 = 406 
27 20 54 45 4C 41 20 45 = 446 


20 55 44 47 02 es e2 





396 


BA 02 1A 85 02 BA = 447 


02 03 1401 35 14 00 20 = 131 
20 27 5341 56 4527 20 = 445 
53 43 52 45 45 4E 24 62 = 486 
06 B5 02 04 BA 02 LA BS = 444 


os BA 
14 20 20 27 5341 56 
as 27 20 55 44 47 02 
85 02 











03 14 01 36 = 224 


as7 
376 


BA 02 1A BS 02 = 440 


04 BA 02 03 14 01 37 14 = 243 


7)IF PEEK 23675+2564PEEK 2967 
6=28042 THEN GOTO 9 
8 uDG O 
9 BORDER 71 CLS 1: LET L=USR 2 
3762: IF L)3 AND LC7 THEN RAND U 
SR 26585 
10 GOTO B+L 
41 CLS + UDG 2: GOTO 9 
12 GosuB Boro 9 
13 GOSUB 30: GOTO 9 
14 GOSUB 40: GOTO 9 
15 CLS 2 PRINT HO” Posicione 
a FITA e tecle ENTER”: GOSUB 451 
GOSUB 48: PRINT AT 1,6+38(L=8); 
” "LOAD" UDG “p(“e TELA “ AND L 
=7): GOSUB 474 LOAD “CODE + GOT 
os 
16 GOTO 15 
47 INPUT ““: PRINT H0F” Verifi 
car, (Sim ou (N)ao 7“: POKE 236 
se,8 
18 LET K=2: PAUSE O! LET K=2-( 
INKEYS="N”)-20CINKEYS="8")4 IF K 
»1 THEN GOTO 18 
19 RETURN 
20 INPUT “Nome “s(“da tela” AN 
D L=4)s (“do UDG” AND L=6)p" 7 “sy 
X$: IF LEN X$)10 THEN GOTO 26 
21 IF X$=”” THEN RETURN 
22 IF L=4 THEN SAVE XSCODE 265 
as, 1625 
231Fl 
“a”, 168 
24 GOSUB 472 IF K THEN RETURN 
25 GOSUB 48: PRINT AT 14,124” V 
ERIFY “: GOTO 44 
30) INPUT “Nome da tela 7 “;X$1 
IF LEN X$)16 THEN GOTO 30 
34 IF X$="” THEN RETURN 
32 INPUT “”: PRINT WOy” BORDER 
=027 S = 'SAVE'": POKE 
23658,8 
33 LET K=CODE INKEYS-48: IF Ka 
35 THEN GOTO 36 
34 IF K£O OR K)7 THEN GOTO 33 
35 BORDER K: GOTO 32 
36 INPIT ““: SAVE XSSCREENS 1 
soro 23 
“e Goro 26 
44 PRINT!“ -) Posicione a Fit 
att tecle ENTER": GOSUB 457 
Gosus 47 
42 IF L=5 THEN GOTO 44 
43 VERIFY ““CODE 1 PRINT *” 
OK. À gravacao esta boa 1!“ 
Tecle ENTER”: GOTO 45 
44 VERIFY ““SCREENS 1 PRINT *“ 
OK. A gravacao esta boa |” 
Tecle ENTER” 
45 IF CODE INKEYS=13 THEN RETU 








THEN SAVE XSCODE USR 














46 GOTO 45 
*” -) Ligue o GRAVADO 
se houver ERRO, digite 
GOTO 50“: RETURN 
48 CLS : PRINT PAPER O;AT 1,0, 
+* RETURN 
a IF CODE INKEY$=13 THEN GOTO 


234 PRINT *“ -) Rebobine a fita 
ide ajuste o VOLUME do grava 
dor, tecle ENTER |”: GOSUB 45 
3 GOSUB 47: CONT 
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Magnex lança M-20 





Propondo ao usuário que não jogue fora nada do que já gastou em 
hardware e em software compatibilizando tudo através de um novo sis- 
tema multiusuário, a Magnex lançou o M-20. O M-20 é um computador 
de 8 bits que aceita como terminal qualquer microcomputador, tanto 
de 8 quanto de 16 bits, desde que compatíveis com CP/M. O novo equi- 
pamento da Magnex também emula, ele próprio, terminais Burroughs e 
Honeywell-Bull. Multiusuário e multitarefa, o M-20 suporta até qua- 
tro terminais e duas impressoras, tem 320 Kb de memória e até 20 Mb 
em disco Winchester. Com uma produção inicial de 30 máquinas/més, a 
Magnex espera se consolidar. definitivamente no mercado de pequenas e 
médias empresas, conquistando um aumento substancial no seu parque 
instalado de computadores. Dependendo das necessidades de cada usuá- 
rio, O préço do M-20 vai variar de 800 a 1.500 ORTN. 


Promoção Scritta 


A Scritta Eletrônica está pro- 
movendo junto aos proprietários 
de micros IBM-PC/XT (e compa- 
tíveis) e impressoras Grafix a dis- 
tribuição gratuita do livro “Cone- 
xão Grafix IBM-PC e compatí- 
veis”, Se você está interessado em 
receber o livro, escreva para o De- 


Inaugurado o 
Infoshopping 


No dia 5 de dezembro o Rio 
ganhou o primeiro shopping de in- 
formática do país. São vinte e seis 
lojas destinadas à venda de equi- 
pamentos ou suprimentos, clubes 
de vídeo, software-houses, livra- 
rias etc. 

No Rio Infoshopping estão em- 
presas conhecidas na área como a 
Aleph Sistemas e Métodos, Ciên- 
cia Moderna e Computação, Com- 
puter Shopping Moore, Mikros, 
Racimec, R&T Informática e Uni- 
tel. 

O shopping conta ainda com 
dois cinemas, que serão usados, na 
parte da manhã, para a realização 
de palestras e seminários. O Rio 
Infoshopping fica na Rua do Cate- 
te, 311, Largo do Machado (pró- 
ximo à Estação do Metrô). 


partamento de Propaganda da em- 
presa (Alameda Amazonas, 832, 
Alphaville — Barueri — São Paulo, 
CEP: 06400) e mencione o mode- 
lo do seu microcomputador, o nº 
da série da impressora e o nome 
da publicação que veiculou esta 
informação. 


Apoio ao 
software 


Os que esperavam muitas novi- 
dades se frustraram com o 69 
Enesi — Encontro Nacional das 
Empresas de Serviços de Informá- 
tica, promovido pela Assespro no 
início de dezembro em São Paulo. 
O evento estava esvaziado e a ex- 
posição paralela de pacotes e equi- 
pamentos também não atraiu mui- 
ta gente. Na abertura do encon- 
tro, o Ministro Renato Archer, da 
Ciência e Tecnologia, celebrou as 
novas linhas especiais de crédito 
operantes, como o Proinfo, do 
BNDES, e principalmente o Pro- 
grama de Apoio ao Software, da 
Finep, que instituiu duas modali- 
dades de financiamento — com re- 
torno e com participação no risco 
— para pequenas software-houses; 
system-houses e universidades. 


IFPS/PLUS 


Através de acordo firmado 
com a DSS Informática, represen- 
tante exclusiva da Execucom Sys- 
tems Corporation no Brasil, a In- 
tertec passou a oferecer a seus cli- 
entes o software IFPS/PLUS, atra- 
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vés do seu bureau. Trata-se de um 
pacote de apoio à decisão, integra- 
do com módulos de otimização e 
banco de dados relacional. Infor- 
mações pelo tel.: (011) 259-2055. 


No final deste mês já estará 
disponível nas lojas a light pen pa- 
ra se conectada ao micro TK90X, 
da Microdigital. Quanto ao outro 
periférico apresentado pela empre- 
sa na última Feira de Informática, 
a impressora TK Printer, ainda 
não há previsão de chegada ao 
mercado. 

E por falar em mercado, a che- 
gada dos dois novos equipamentos 
da linha MSX não parece ter afe- 
tado as vendas dos micros da linha 
Sinclair, fabricados pela Microdi- 
gital. Segundo o diretor de marke- 
ting da empresa, Jorge Luiz dos 
Santos, os micros da Sharp e da 
Gradiente deram uma força ainda 
maior à área de microinformática, 


Cobra 480 


A Cobra está anunciando diver- 
sos aperfeiçoamentos para o seu 
supermicro Cobra 480. 

Estas melhorias consistem em 
aumentar o número máximo de li- 
nhas assíncronas, acrescentar uma 
unidade de fita streamer de 21 Mb 
para back-up e adicionar uma uni- 
dade de disco Winchester de 10,51 
ou 67 Mb. 

Também são anunciadas novas 
versões dos sistemas operacionais 
SOD (E.00) e MUMPS (C.02), com 
programas utilitários para forma- 
tação e cópia de arquivos nos no- 
vos periféricos. Estes sistemas es- 
tarão disponíveis a partir de janei- 
ro e fevereiro. 





Light pen para TK90X 


e pelo próprio custo destes equi- 
pamentos ele se posicionaram nu- 
ma faixa diferente da que é atingi- 
da pela Microdigital. “Além do 
que”, reforçou Jorge dos Santos, 
“nossos micros já contam com 
enorme suporte a nível técnico e 
de software”. 


O diretor de marketing da Mi- 
crodigital afirmou ainda que nada 
impede que sua empresa venha a 
lançar um equipamento dessa li- 
nha no próximo Natal, principal- 
mente se se levar em conta que as 
empresas que lançaram micros 
MSX no Brasil são novas na área, 
não tendo tradição em informá- 


MSX 
Informática 


A linha MSX conta agora com 
uma empresa especializada. Trata- 
se da MSX Informática Ltda. que 
atua tanto na comercialização des- 
ses equipamentos quanto na parte 
de suporte técnico e software para 
os mesmos. Inaugurada no final 
do ano, dentro da MSX Informáti- 
ca passa a funcionar este ano tam- 
bém o MSX Soft Club, que conta 
com mais de 200 programas já dis- 
poníveis para locação. A MSX In- 
formática funciona na rua Caiubi, 
nº 567, tel.: (011) 8720730, São 
Paulo - Capital. 


Planos para 86 


Ano novo, planos de expansão. A empresa Compumicro, que atua 
nos mercados do Rio de Janeiro e São Paulo, cresceu bastante ao longo 
de 85 e pretende diversificar suas atividades. Vários projetos têm sido 
estudados pela diretoria, em especial uma nova filosofia de pontos de 
venda e a entrada na área de treinamento. 

Na área de 8 bits, — que equivale a 30% do seu volume de vendas -, 
a Compumicro revende basicamente UCPs da Unitron (linha Apple); 
drives e impressoras da Elebra; monitores de vídeo Compo e placas da 


Unitron e Logodata. 


Mas é atuando no segmento de 16 bits, como representante do gru- 
po Proceda, “que a empresa tem realizado grandes negócios, comerciali- 
zando principalmente para empresas estatais os micros Nexus 1600; 
Nexus 1684 (com Winchester de 10 Mb);PC 2001; XT 2002 e PC-PAQ. 
Também para o mercado profissional, a Compumicro dispõe da linha de 
comunicação (terminais e adaptadores) da Scopus. 

Para todos os produtos da Proceda, além da venda existe a opção do 
aluguel. Este é um contrato de 30 meses, que inclui manutenção e op- 
ção de troca, o que permite ao cliente manter a atualização tecnológica 
de seus sistemas e reorientar seus projetos. 
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Estação CAD/CAM com 1-7000 
PCXT 


Participando da cerimônia de 
abertura do 29 Congresso Nacio- 
nal de Automação Industrial o mi- 
nistro da Ciência e Tecnologia, 
Renato Archer, destacou que o se- 
tor de automação deve ter o mes- 
mo tipo de apoio que vem sendo 
dado à área de informática. E pa- 
ra isso, segundo o ministro, deve 
haver uma política definida que 
permita que os impactos da im- 
plantação da automação no mer- 
cado de mão-de-obra sejam absor- 
vidos, e os benefícios dessa mes- 
ma implantação sejam distribuí- 
dos socialmente. Archer ressaltou 


IBAM: seminário 


O IBAM vai promover nos dias 
23 e 24 de janeiro o seminário 
“Informática: tendências tecnoló- 
gicas e organizacionais”. Haverá 
turmas das 8:30 às 12:00 e das 
13:00 às 17:00 hs. Maiores infor- 
mações pelo tel.: (021) 266-6622. 


Sorteio TK90X 


Os vencedores da segunda 
rodada do concurso “Ganhe 
um micro TK90X”, promo- 
vido pela Microdigital em 


conjunto com MICRO SIS- 
TEMAS, são Marcelo Rober- 
to Gimenez, do Rio de Janei- 
ro, e Carlos Mello Mesquita, 
de Porto Alegre. 





Automação Industrial 


que a carteira da Finep — Finan- 
ceira de Estudos e Projetos — para 
projetos de modernização do par- 
que industrial do país aumentou 
em quatro meses de Cr$ 300 bi- 
lhões para Cr$ 1 trilhão de cru- 
zeiros. E lembrou ainda que até 
junho deste ano o Ministério da 
Ciência e Tecnologia estará rece- 
bendo os projetos de automação 
industrial das empresas nacionais 
interessadas em atuar nesta área. 

Na exposição que se realizou 
paralelamente ao evento foram 
mostrados entre outros um robô 
fabricado pela Villares para solda 
a arco, sistemas de CAD/CAM da 
Compugraph e Itautec, com tec- 
nologias respectivamente da Ma- 
tra, francesa, e da empresa norte- 
americana CGX e um sistema ele- 
trônico de pesagem, desenvolvido 
pela Proceda. 

Entre as propostas debatidas 
no encontro, a do ex-titular da 
SEI, Edson Dytz sugere a criação 
de uma subsecretaria da SEI ou 
uma secretaria ligada ao Ministé- 
rio da Ciência e Tecnologia, para 
se ocupar exclusivamente da ques 
tão da automação industrial. 


Conexão 
Bolsa 


A Clappy, empresa carioca es- 
pecializada na venda de equipa- 
mentos, software e serviços está 
oferecendo um novo pacote de 
software: Conexão Bolsa. 


Desenvolvido pela B & C Con- 
sultores, Conexão Bolsa permite a 
qualquer usuário dos micros Apple, 
TRS-80 e IBM-PC, ligar o seu equi- 
pamento aos computadores da 
BVRJ, possibilitando obter infor- 
mações sobre o mercado de ações. 


A Clappy fica na Av. Rio Bran- 
co, 12 loja. Tel: (021) 253-3395. 





Cartão de 
referência 


Foi lançado recentemente pela 
Ponto Editorial o cartão de refe- 
rência para o micro Apple Il e si- 
milares. O cartão possui 16 pági- 
nas e substitui o manual do pro- 
prietário, de 320 páginas, e abor- 
da os principais recursos do mi- 
crocomputador tais como: Integer 
Basic, Applesoft, DOS 3.3 e As- 
sembly 6502. O cartão de referêén- 
cia pode ser encontrado nas prin- 
cipais livrarias e custa Cr$ 40 mil, 
e pode ser pedido também direta- 
mente à Ponto Editorial, rua Cae- 
tés, 252 — Perdizes — CEP: 05016, 
tel.: (011) 864-3499 São Paulo. 


Cursos BASIC 


Em fevereiro, a Datamicro vai 
promover cursos de BASIC Básico 
e BASIC Avançado. O Básico co- 
meça dia 4, com turmas às segun- 
das, quartas e sextas, em diversos 
horários, e o curso de BASIC 
Avançado terá início dia 5, com 
dias de aula a combinar. Informa- 
ções pelo tel.: (021) 511-0395. 


Arquitron 


O arquiteto José Eduardo Ma- 
luf de Carvalho, colaborador de 
MICRO SISTEMAS e um dos pri- 
meiros a introduzir o uso do micro 
em sua área, está cada vez mais li- 
gado à Informática. Prova disso é 
que acaba de abrir uma loja para 
comercialização de computadores. 
Mas segundo José Eduardo, na Ar- 
quitron, mais do que para o co- 
mércio de micros, a ênfase é dada 
a parte de serviços, tais como de- 
senvolvimento do software para as 
mais variadas áreas e a criação de 
um clube de usuários do TK90X. 
A Arquitron fica na Av. Faria Li- 
ma, 1.684 sala 23, Shopping Vi- 
trine Iguatemi, São Paulo. 


Outras empresas na trilha do MSX 





Duas empresas do mercado de Informática estu- 
dam seriamente a possibilidade de entrar na fabrica- 
ção de micros da linha MSX. São elas a Dynacom e a 
Racimec. A Dynacom avalia com calma a hipótese de 
mais um produto, visto que a empresa teve proble- 
mas com as placas do micro MX-1600 — compatível 
com a linha Color, da Radio Shack, e com um nome 
bastante sugestivo, para quem pretende investir no 
padrão japonês. O Color da Dynacom estava previsto 
para chegar às lojas no més passado, aproveitando as 
vendas de fim de ano, mas devido aos tais problemas 
de fabricação, teve seu lançamento adiado para janei- 
ro, segundo a diretoria de Marketing. Quanto ao 
MSX, poderemos ter uma surpresa, quem sabe numa 


dessas feiras de entre-safra. 


Já na Racimec — que não brinca em serviço e 
apóia-se num confortável parque instalado de seus 
sistemas profissionais e terminais lotéricos — as pes 
quisas estão bem adiantadas. Consta que já existem 
equipes de desenvolvimento e software debruçadas 
sobre diversos modelos do MSX, somente à espera 
do sinal verde para acionar os motores de fabricação. 
E o sinal poderá vir em breve, pois segundo o presi- 
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dente Simão Brayer, tudo depende de serem resolvi- 
dos os impasses de fabricação na Zona Franca de Ma- 
naus, para que haja uma “competição limpa”. Recente- 
mente, a Gradiente teve problemas para o lançamen- 
to do micro Expert, visto que uma auditoria por par- 
te da SEI constatou que havia planos de fabricação 
do micro, contando com os incentivos da Suframa já 
garantidos à um projeto de videogame aprovado pelo 
Governo e que, afinal, nem vai ser fabricado. Detec- 
tado o “engano”, a solução parece ser a mesma da 
Epcom, que já fabrica em Manaus o Hot Bit, porém 
sem contar com as regalias daquela região. 

O Presidente da Racimec, contudo, parece não es- 
tar convicto desta ser a melhor solução, pois, disse 


ele, “pelo que conheço da burocracia e dos proces 


sos de controle, esta situação pode gerar indefini- 
ções e até facilidades para quem já está lá”. De qual- 
quer forma, embora o impasse maior esteja na certe- 
za de se conseguir preço competitivo, Brayer não es- 
conde a empolgação com o produto — “Não há dú- 
vida de que o MSX é um micro profissional” —, e co- 
mo a Racimec é movida em grande parte, por seu en- 
tusiasmo, dá pra apostar. 





Atendimento 
Prológica 


Os usuários dos computadores 
pessoais da Prológica contam ago- 
ra com um serviço de reparos es 
pecial. Trata-se do Atendimento 
Rápido Prológica, que garante o 
conserto quase que imediato da 
máquina, com prazo médio de 
apenas 30 minutos de espera e ga- 
rantia total por 45 dias. Além dis- 
so os preços do novo serviço são 
fixos: CP-200, 1,8 ORTN; CP-300 
e 400, 2,8 ORTN e 4 ORTN para 
o CP-500 modelo 021. Para mea- 
dos deste ano o Atendimento Rá- 
pido Prológica deverá ser estendi- 
do à área de Sistemas e impresso- 
ras. O ARP funciona na rua Fi- 
dêncio Ramos, 302, no bairro de 
Vila Olímpia — São Paulo, Capital. 


Novas 
instalações 


A Maquis transferiu parte de 
suas dependências para a Rua 
Inhambu, 1271, tel.: (011) 543- 
3221, em Moema, São Paulo. No 
antigo prédio da Av. Imarés ficou 
apenas a fábrica. 

No Rio, a Maquis também mu- 
dou de endereço. A empresa insta- 
lou seu novo show-room na Av. 
Calógeras, nº 6B, sobrelojas, tel.: 
(021) 240-4934, Centro. 


Padrões 
brasileiros 


Com o objetivo de discutir a 
criação de padrões brasileiros para 
o setor de Informática, difundir 
os resultados alcançados até o pre- 
sente, discutir a integração desse 
esforço à importância da Certifi- 
cação de Qualidade Industrial e 
colher subsídios para os trabalhos 
futuros, a ABNT — Associação 
Brasileira de Normas Técnicas —, 
através do seu CB-21, realizou de 
18 a 20 de novembro no Hotel 
Glória (Rio de Janeiro), o Seminá- 
rio de Normalização Técnica e 
Qualidade Industrial em Informá- 
tica. 

Constituído de vários painéis 
e cursos de curta duração, o Se- 
minário destacou a importância 
do setor de Informática — que es- 
te ano faturará mais de US$ 2 bi- 
lhões — para o país, enfatizou a 
necessidade de padronizar alguns 
recursos mínimos dos sistemas 
operacionais (chamadas de super- 
visão, bibliotecas, arquivos, etc.) 
e alguns aplicativos de uso geral, 
visando beneficiar a indústria, o 
comércio e principalmente o usuá- 
rio. Os participantes também afir- 
maram a necessidade de que o 
Brasil procure soluções próprias 
para os seus problemas e não ape- 
nas copie programas e sistemas pa 
importados. e 
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Mesmo sendo versátil, o sistema operacional do TRS Color não possui 
recursos para combinar textos com gráficos em alta resolução. Porém, 
se você utilizar as rotinas descritas neste artigo isto será fácil. 





Caracteres no Color 


Cláudio Costa 





ma das maiores limitações dos 
micros compatíveis com o TRS 
Color é, sem dúvida, a impossi- 
bilidade de se combinar texto 
com alta resolução. Nesses equipamen- 
tos, o hardware para geração de vídeo 
seleciona alternativamente o modo de 
apresentação entre texto ou gráfico: no 
primeiro modo, um byte de vídeo é tra- 
duzido como um caráter; no segundo, 
esse mesmo byte é interpretado como 
um pixel ou ponto da tela gráfica (veja 
o artigo “Vídeo no Color”, MS nº 48). 
possível concluir que tal limitação, 
até certo ponto, se impõe em razão do 
sistema operacional não ter sido dotado, 
a princípio, de rotinas capazes de tradu- 
zir as informações das telas gráficas na 
forma de caracteres. Logo, se quisermos 
aliar texto à alta resolução, o que temos 
a fazer é simplesmente escrever essas ro- 
tinas. Há várias maneiras de se fazer is- 
so, tanto em BASIC como em linguagem 
de máquina. 

Um método clássico é o que utliza o 
comando DRAW. Considere uma matriz 
da letra A, como a ilustrada na figura 1. 

Portanto, se você desejasse imprimir 
o caráter da figura 1, a instrução DRAW 
viria acompanhada de: USR4D2NLA4D3, 
o que pode ser visto na figura 2. Este co- 
mando significa: suba cinco pontos, 
ande quatro para a direita, dois para bai- 
xo, quatro para a esquerda, sem atuali- 
zar a posição de impressão e, finalmen- 
te, mais três pontos para baixo (o fun- 
cionamento deste comando está clara- 
mente explicado no manual). Digite o 
programa abaixo e confira o resultado 
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Figura 2 





na tela de alta resolução: 
40 PHODE4:COLORD,S:PCLSISCREENA, 
20 DRAW USRAD2NLADA” 
30 607030 

Como o argumento de DRAW pode 
ser uma string, é possível estender este 
processo para a impressão de mensagens 
inteiras; basta definir as instruções DRAW 
para os caracteres e acessá-las através de 
uma matriz. Este método implica em es- 
tabelecer parâmetros para todo o alfa- 
beto, trazendo porém, em contraparti- 
da, uma grande flexibilidade. Com efei- 
to, não precisamos nos restringir ao con- 
junto de caracteres convencionais do mi- 
cro; podemos criar letras minúsculas, 
acentuação da língua portuguesa, carac- 
teres especiais etc., tudo no formato que 
desejarmos. 

Certos cuidados são necessários, se a 
intenção é criar um sistema que funcio- 
ne em todos os PMODES. Experimente, 
no exemplo anterior, trocar o PMODE 
4 da linha 10 por PMODE 0. Rode nova- 
mente o programa, você notará que a 
perda de definição do desenho se deve 
ao fato do ponto, na baixa resolução, 
ser mais alto do que largo. Para funcio- 
nar em todos os PMODES, um sistema 


deve, portanto, prever as diferenças exis- 
tentes entre os diversos modos gráficos. 

A sub-rotina apresentada na listagem 
1 imprime caracteres maiúsculos em 
qualquer PMODE, bastando para tal 
comandar GOSUB 5. A mensagem (má- 
ximo de 25 dígitos) deve estar contida 
na variável TES; PX define a coluna e 
PY a linha de início da impressão. A pe- 
nas o intervalo de O a Z foi utilizado 
(CHRS$ 48 a 90, mais um espaço), logo, 
é só subtrair 47 do código ASCII de 
cada um dos caracteres a serem impres- 
sos para se obter a posição do desenho 
correspondente na matriz (linha 6). An- 
tes, porém, são necessários alguns cálcu- 
los com o objetivo de compatibilizar a 
posição relativa do traço nos diversos 
PMODES. Assim, PY deve ter um valor 
par, enquanto PX deve ser ímpar; as 
comparações lógicas da linha 5 verificam 
a consistência desses valores. O espaça- 
mento entre os caracteres (SP) é calcu- 
lado como sendo aproximadamente o 
dobro do valor da escala empregada, o 
qual pode ser referenciado por meio de 
PEEK (233) (linha 5). Algumas letras, 
como M e W, no entanto, requerem mais 
espaço para serem representadas; este es- 
paço é indicado pelo parâmetro B, no fi- 
nal da instrução DRAW (linha 7). Note 
que alguns caracteres foram redefinidos: 
o sinal <, por exemplo, imprime um Ç. 
Veja na figura 3 um quadro com os ca- 
racteres redefinidos na rotina. Qualquer 
caráter fora da faixa válida será interpre- 
tado como um espaço. 

Para ver a rotina funcionando, rode o 
programa abaixo, pois ele imprime a 
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mensagem em letras ciano sobre fundo 
cinza (COLOR 6, 5) em média resolução 
(PMODE 3): 


10 PHODEI:COLORS, 
1 

20 TES-“CARACTERE 
GosuBS 

30 GOTOao 





A escala em que serão desenhados os 
caracteres pode assumir qualquer valor 
numa faixa de 4, 8, 12, 16 etc. Para 
ajustá-la, deve ser usado normalmente o 
parâmetro S do comando DRAW, tal 
como mostra o exemplo a seguir: 


10 PMODES:COLORS,B:PCLS:SCREENI, 


sPX=43:PY=967 





Note, por fim, que você pode exibir 
numa mesma tela caracteres de diferen- 
tes formatos. Basta passar os caracteres 
de um PMODE para outro: 

10 TES="CARACTERI 


20 PMODELICOLORE 
12PX=4L:PY=76:DR, 





CLSESCREENA, 
"SB": GOSUBS 

30 PMODEI:COLORA, S:PX=79:PY=56:0 
RAW“SA”EGOSUBS 

40 FORT=1TOZO00:NEXT 

SO PMODE42SCREENIA, 1ºPX=B1:PY=903 
GosuBs 

é0 G0T050 | 





Com base no que foi visto, você po- 
derá adaptar a rotina de acordo com 
suas necessidades. Se você quiser usá-la 
como está, digite o comando CLOAD 
seguido da rotina e inicie a numeração 
de seu programa a partir de 10. Não es- 


queça, nesse caso, de ajustar o parâme- 
tro CLEAR da linha 1 de acordo com o 
programa principal. 


MODIFICANDO O FORMATO 
DA TELA 


Uma outra característica que pode 
passar despercebida na primeira aproxi- 
mação, mas que é capaz de se tornar ob- 
jeto de alguns aborrecimentos no conví- 
vio com estes micros é, certamente, a 
pequena capacidade de sua tela de tex- 
to, capaz de acomodar apenas 32 colu- 
nas por 16 linhas. Tal divisão, contudo, 
não é gratuita: como a memória do Co- 
lor é dividida em páginas de 1536 by- 
tes cada, e os 1024 bytes iniciais da pri- 
meira página estão reservados para as va- 
riáveis do sistema, sobram apenas 512 
bytes para alocar a tela de texto. Como 
se vê, O arranjo de 32 colunas por 16 li- 
nhas é o que melhor se adapta a esta or- 
ganização de memória (note que 32 x 
16 perfazem exatos 512 bytes). 





CARÁTER 
DO MICRO 





Uma solução para este problema — e 
que resolveria ainda a incompatibilida- 
de de texto com alta resolução — seria 
uma rotina que habilitasse a tela de alta 
resolução gráfica a funcionar também 
como tela de texto, mantendo-se o prin- 
cípio do emprego de caracteres defini- 
dos pelo programador. Isto é possível 
graças a maneira como foi projetado o 
sistema operacional desses equipamen- 
tos, e embora tal rotina precise ser escri- 
ta em linguagem de máquina, o conceito 
que envolve sua operacionalidade é bas- 
tante simples. 


Na verdade, a rotina do sistema ope- 
racional responsável pela impressão de 
um caráter, localizada em $ A282, exe- 
cuta inicialmente um JSR (Jump do 
Sub Routine, que equivale a um GOSUB 
do BASIC) para uma posição da RAM — 
o endereço 359 decimal, mais precisa- 
mente. Neste momento, o caráter a ser 
impresso está contido no registrador A. 
Esta posição contém apenas uma instru- 
ção de desvio (JUMP) para outro ende- 
reço da ROM, onde continua o proces- 
samento; logo, para interceptar a rotina 
de impressão, tudo o que temos a fazer 
é colocar um JUMP para a nossa rotina 
na posição apropriada da RAM, salvar 
os registradores naquele ponto, execu- 
tar a rotina de impressão do caráter na 
tela gráfica, recuperar o conteúdo dos 


registradores e comandar um JUMP para 48 





COMUNICAÇÃO ENTRE MICROS PARA 


TRANSFERENCIA DE ARQUIVOS 





O TRANSFERE é a solução para o seu problema 
de ter vários micros com formatos de diskette ou 


sistemas operacionais incompatíveis. 





Compare você mesmo o TRANSFERE com os concorrentes 





GLS 


Com o TRANSFERE você pode transferir 
arquivos entre dois micros através de uma 
ligação por cabo. O TRANSFERE usa as 
interfaces seriais dos seus micros, podendo 


funcionar com velocidade de transmissão de até 


9600 bauds. 


Na tabela ao lado você encontra as características 
mais importantes do TRANSFERE. Use-a para 
facilitar a sua decisão de compra, comparando o 


TRANSFERE com os concorrentes. 


Computadores já suportados: POLYMAX, 
EDISA, DISMAC, TELSIST, ITAUTEC, 
PROLÓOGICA, MICROTEC, SCOPUS, 
UNITRON, MICROENGENHO, todos os 


compatíveis com o APPLE usando placa CP/M e 
todos os compatíveis com o IBM PC (consulrte- 
nos se o seu computador não está listado, novas 


versões estão sendo feitas). 


PREÇO: 20 ORTNs para compatíveis com o 


APPLE II, 

30 ORTNSs para micros CP/M 
40 ORTNs para micros MS-DOS 
(compatíveis com IBM PC) 









az a transmissão ando um protocolo de 
eee = e correção automática de erros SIM 


TRANSFERE 





executáveis, etc. 





= especificar o grupo. 


ia de peer textos, arquivos de 





ermite transmitir vários arquivos com um 
único comando, usando a convenção de ? e 


SIM 











responde automaticamente. 


pode ser feita através de 
ligação direta per cabo ou através de linhas 


Para anstarência de arquivos basta dar o 
comando em um dos micros ligados, o outro 





micro local ou do remoto. 








Permite acessar qualquer drive em qualquer 
um dos micros, podendo listar diretórios do 


Permite emular um terminal com protocolo 
TTY para ligação com CIRANDAO, DISQUE- 
BOLSA. ARUANDA e outros serviços. 





















Acompanha o programa um manual 







utilização 


completo, que explica detalhadamente a sua 





INTELSOFT INTELSOFT Projeto e Desenvolvimento de Sistemas S/C Ltda 
in Praia do Fiamengo 66 Sala 1104 CEP. 22210 Tel. (021)265 3346 - Rio de Janeiro - RJ 


CARACTERES NO COLOR 


























4 CLEARZ00:DRAW“S4” 2 DIMCS(43)2FO 
RJ=17043:READCS(.J) ENEXTEGOTOLO 
2 DATAXCS(20) ; NG3D5, BRAU762, BUGE 
R3FD26L36D2RS, BUGERIFDGNLFD2GLIH 
BRaUZ6AR6, BUZNRSDIR4FD26L3H, BU3 
R4FDOL3HU3E3R, E6UL6, XCS (4) ; UZEHU 
BRRE3L4AHUZER3FD2, UBUAU, UD2, XCS( 
50); BD6BL2D2, BUZRABUSLA, XCHC18); 
BU9BLLI, BUIRÁ, U, UGERIFDINLSD3, XE 
g(33);FD26L4 
q DATABRANELIHUSERIF , UZRAFDSGLA, 
XC$(23); DARS, U7RSBD2BGLA, XCSC20) 
- BO3NL2D2, U7D3RSU3D7 , BRRZU7NL2NR 
5D7R2, BRNHR3EUS, U7DIR2NEIF ID, NUZ 
R5,U7F3REID7B, UZF 6DNUZ, XCS (20) ;D 
5, U7R4FDGNLA, XCS(32);BL2F2,XCS(I 
3); L2F4, RAEUZHLIHUERA, BRIU7LIRZE 
BU7D6FRIEUS, BUZDAFIRESUAB 
à DATANUZE3RF3U7B, UESUBLSDF SD, BR 
3U4NH3E3B , BUZR667R7 
5 PX=PX ORLEPY=PY-CPY ANDA) :SP=P 
EEK(233)42+2 
& FORJ=1TOLENCTES) 2CH=ASC(MIDSCT 
E$,J,1))-473 IFCH(DORCH>43THENCH= 





0 

7 DRAU“BM/ASTRSCPXI+”, “ASTRECPY) 
SCS(CH) :PX=PX+SP-2%CRIGHTS(CSCCH 
»,4)="8") :NEXTERETURN 

B "VARIAVEIS USADAS: C$,CH,J,PX, 
PY,SP,TES 

10 ES DD 


10 * DD 
45" * TEXT+ BIN * 
oo" MD 
25 * + Combina texto com alta * 
o k resolucao e altera O “ 

formato da tela para * 


culunas X 24 Vinhas * 





o) 
EI 

40 4 Claudio Costa * MS * 

“ D9/1985 * 

DECR E E E E ad boda ddo dedo doado fededdado! 

FEK(116)-760: 

, 615 1+1016 


( CREENO, 13 1 TO FSREA 
DABIA=VAL (RH HA E) EO 














C+ASPOKEB, A 
=NEXT E 
Bo 1FC()191655 THENPR INTA203,“* 
ERRO *“=POKES37,0:END 
BS PRINTOL? "PREPARE O GRAVAI or 
E TECLE ENTER FIFINKEYS “THE UB 
5 
90 CSAVENCTEXTAS, 1, F,1 
95" 


100 DATA DE, A?,EF,BD,06 
FÊ 











,00,89,DF, 
7,23,8D,00,E/,FF 









D,UL, 
,D4,BD 
,83,0F,B2,8D,76,8 
1,21,86,C0,27,07, 
0,F5,FE,04,6B,EF 





95,CF,33,88 
43,AD,9F,a0,U 
































,8D,00,58,30,80,00,26,BF,01 

105 * 

110 DATA 68,CE,00,C8,34,40,7E, AE 
Sa, AB,BA,A?,AB,D4,F2,52,96,9C,8 
D,90,0F,AC,96,BC,80,94,92,9E,8C, 
DÊ CÉ,C6,C7,09,F2,00,34,56,81,0C 
24,05,8D,28,17,00,00,96,77,27,1 
1,9E,FA,8D,A7,D3,8E,01,52,86,FF, 
A7,80,8C,01,54,26,F9,96,76,27 DA 
- CC, 08,04,97,8C,D7,8E,BD,A? 

S48 º 

420 DATA 56,35,96,7E,BC,F1,34,16 
8D,95,42,9E,BA,9F,FE,35,96,7D,F 
É 25,24,43,81,9E,27,10,81,38,26, 
08,34,56,4F,17,00,98,35,56,81,97 
26,02,8D,DA,81,40,26,29,8C,.AB,7 
5 26,24,34,16,8D 25,E4,10,83,02, 
7F,10,22,97,5F ,1F ,01,8C,00 
,08,30,88,E0,03,00,E0,20,FS 
125 * 

130 DATA D3,BA,DD,FE,35,1é 
, JE AA, 1A,0D,6F,26,17,3 
8,26,14,4F,8D,56,DC,FE,5A, 
83,01,E0,DD,FE,8D,46,35,05,7E,82 
,73,81,0D,26,09,4F ,80, 

€,SF,20,14,84,20 

































Es,8D ,FE,SC,Ci,2 
(00, E,10, BZ, 
135 * 

140 DATA DA,FE,9E, 
(ED,81,9C,F 


7 





(4F,OS,DE,FE,86 
,26,04,53,E7,C4, , 
FL,99,FF,FF,FF FE, 
F7Z,FZ,F7,FF,F7,E 


F,FF,EB,EB,C9,FE 


CD,CD,FE.F?, 
DB,ES,F7, 
DF,DF,DF 





,E3,DD, 
,CL,FB,FB 





F .13,0D,DD,E3 
,EL,FD,FD,E3,FF,E 






14 

470 DATA EZ,FF ES E 
VEF,FB,F7,EF,DF,EF é à 
LFF,CA,CF,FF,EF,FZ,rB,FD,FB.FZ, 
EE ,E7,0B,FB,F7,F7,FI,F7,E3,DD,FD 
,ED,D5,D D,DD,C1,DD,L 










D,C3,ED,EOD, 





3,E3,DD,DF, 
DF,DF,DD,E3 , ED, ED,ED,U3 
(C4,DF,DF ,04,C14,0F 
vs E 

180 DATA DF,C3,DF,DF,DF,Et,DF,DF 


,DY,DD,DD,E1,DD,DD,DD,Ci ,UD,DD,D 
E .E3,F7,F7,F7,F7,F7,E3,FD,FD,FD, 
FD,DD,DD,E3,DD,DB,D7,CF,D7,DB,DD 
. DF, DF,DF,DF,DF,DE,C4,DD,C9,D5,D 








5,0D,DD,DD,DD,CD,DS,09,DD,DD,DL, 
C!,0D,DD,LD,DD,DD, 3,0D,09,C3 
,DF,DF,DF,E3,DD,DD,DD,D5,DB 


185 * 

190 DATA E5,C3,DD,DD,C3,D7,DB,DD 
E3,DD,EF,F7,FB,DD,E3,C1,F7,F7,F 
2,F7,F7,F7,DD,DD,DD,DD,DD,DD,E3, 
DO,DD,DO,EB,EB,F7Z,FZ,DD,DD,DD,DS 
D5,C9,DD,DD,DD,EB,F7,EB,DD,DD,D 
D,DD,EB,F7,F2,F7,F7,CA,FD,FB,FZ, 
EF,OF,Ci,C7,DF,DF,DF,DF,DF ,C7,E7 
,DB,06,E7,FF,E7,FF,E3,FB,FB 

195 

200 DATA FB,FB,FB,E3,FZ,E3,DS,F7Z 
F7,F7Z,F7,FF,F7,FB,BL,FB,FZ,FF.F 
FFF,FF,FF,FE,FF,CL,FF,FF,CZ,FB, 




































22 


O 

















ca,8B,05,0F,DF,D3,DD,DD,DD,C3,FF 
FÉ ES DU, DF,DD,E3,FD,FD,E1,DD,D 
D.0D El,Fi ,FF,E3,DD,CÍ,DF,Eí,F3, 
CEE ,L. ,EF,EF,EF,FF,FD,E9,DD,E3 
.FÓ,E3,DF, DF Da, DO, DD, DD, DD 








S4U DATA F7,FF,EZ,F7,F7,F7,E3,FB 
Fr,FB,FR,FO,FE,EZ,DF,DF DB, DZ, 
& DB DO,EZ,F7,F7,F7,F7.F7 EI FE, 
FF. B9,B6,84,B6,BE,FF,FF,D3,DD,DD 
“Db, DD, FF ,FF,E3,DD,DD,DD,E3,FF,D 











4. CD,DD,C3,DF,DF,FF.ES,D?,DD,EL, 
FD.FD,FF,FF,D3,CD,DF,DF,DF,FF,FF 
,Ea,DF,E9,FD,E93,EF,EF,83,E 

220 DATA EF,ED,F3,FF,FF,DD,DD,DD 
DD, U3,FF,FF,DD,DD,DD,EB,FZ,FF,F 
F,BÉ UG G,rF,FF,DO,EB,FZ, 


(BE ,D6,B6, 
8,DO,FF,FF,DD,DD,E1,FD,E3,FE, FF 
Cí, FD Ea, DF. Ci 








o endereço originalmente apontado por 
aquela posição da RAM. Evidentemente, 
o programa não se resume apenas nisso; 
uma série de outras funções precisam ser 
implementadas, tais como: impressão do 
cursor, delete, backspace, execução do 
SCROLL automático quando a tela es- 
tiver cheia etc. . 

É bom saber, entretanto, que é possí- 
vel escrever um programa que execute 
todas essas funções usando menos de 
300 bytes. O maior consumo de memó- 
ria, na realidade, está relacionado com a 
tabela de que tal programa necessita 
para desenhar os caracteres. Não é possí- 
vel, a exemplo do que fazem os usuários 
do ZX81, ler a tabela de definição de ca- 
racteres do micro, porque essa tabela 
não está localizada na ROM do sistema 
operacional e sim na ROM do micropro- 
cessador de vídeo, o VDG. 

Como a definição do formato dos ca- 
racteres fica a critério do programador, 
não existem, a rigor, restrições quanto 
ao número de linhas ou colunas que po- 
dem ser utilizadas pelo novo sistema. Al 
guns critérios, todavia, devem ser segui- 
dos e um deles diz respeito à legibilida- 
de dos caracteres. Isto pode parecer ób- 
vio, mas muitos programas comerciais 
desenvolvidos com o objetivo de ampliar 
a capacidade da tela de texto do Color 
Computer pecam nesse aspecto. Enquan- 
to tecnicamente não há problema em 
operar com 64 caracteres por linha, por 
exemplo, na prática, o diâmetro dos ca- 
racteres não passaria de três ou quatro 
pixels, considerando-se que o limite ho- 
rizontal da tela é de 256 pontos (256/ 
64 =4). Os caracteres normais do micro 
têm uma largura de oito pixels, por 
onde se percebe que a imagem, num te- 
levisor comum, seria no minimo sofrí- 
vel. 

O programa apresentado na listagem 
2, cria uma tela de texto de 32 colunas 
por 24 linhas, ou 768 posições. Este for- 


mato é mais ou menos padrão para equi- 
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pamentos deste porte, e foi adotado em 
função da maioria das dificuldades de 
manipulação da tela de texto estarem re- 
lacionadas com o número de linhas dis- 
poníveis. Este formato permite ainda 
que seja mantido o desenho original dos 
caracteres do micro, já que apenas o es- 
paçamento entre as linhas é modificado. 
O programa imprime letras maiúsculas e 
minúsculas em vídeo normal ou inverso, 
além de implementar opcionalmente no- 
vas funções, como repetição automática 
de teclas e feedback auditivo (beep). 


COMO USAR O PROGRAMA 


Digite cuidadosamente a listagem 2 e 
grave-a em fita. Em seguida, dê RUN:; 
não havendo erro, a tela permanecerá 
cor de laranja durante, aproximadamen- 
te, 15 segundos. Prepare o gravador, dê 
ENTER e grave a versão final do progra- 
ma. Para carregar e executar, digite a se- 
guinte sequência em forma de comando 
direto: 


CLEAR 2000:CLOADM:EXEC 


O próprio programa se encarrega de 
reservar espaço no topo da RAM. Ape- 
nas 262 bytes, mais 637 bytes de tabe- 
la são usados; as rotinas de inicialização 


são apagadas a fim de economizar me- 
mória. Os comandos CLS e PRINT e a 
tecla CLEAR funcionam normalmente, 
porém, a rotina não imprime caracteres 
gráficos. Para manter a compatibilidade 
com programas que utilizam esse recur- 
so, é possível reverter à tela de texto 
normal digitando-se SCREEN 0. É pos- 
sível ainda fixar a tela de texto original 
na cor de laranja; experimente coman- 
dar SCREEN 0,1. Para retornar à alta 
resolução, digite SCREEN 1. 
A instrução COLOR, além de definir 

a cor que será usada por CLS e pela ro- 
tina de SCROLL, estabelece também a 
cor em que serão impressos os caracte- 
res. Dessa forma, SCREEN 1,0: COLOR 
0,1: CLS imprime caracteres em preto 

sobre fundo verde, enquanto SCREEN 

1,0: COLOR 1,0: CLS imprime caracte- 

res em verde sobre fundo preto (as ins- 

truções SCREEN e CLS, obviamente, 

não são obrigatórias). Já as rotinas de 

beep e auto-repeat podem ser ativadas 
da seguinte forma: 


POKE 118,1 — ativa beep 
POKE 118,0 — desativa beep 
POKE 119,1 — ativa repeat 
POKE 119,0 — desativa repeat 


O valor armazenado nos endereços 
250 e 251 é assumido como o intervalo 


de tempo que uma tecla aguarda ao ser 
pressionada, antes de ser repetida. Este 
delay é ajustado inicialmente em 6500, 
mas pode ser modificado pokeando-se 
qualquer outro valor nestes endereços. 

Da mesma maneira que SCREEN, é 
possível modificar também o PMODE 
em uso. Note, contudo, que não é se- 
guro trocar o PMODE quando a impres- 
são estiver situada na última linha da 
tela, pois a rotina de SCROLL perde os 
valores de referência e pode ocorrer per- 
da de controle do cursor. Quanto à ins- 
trução RESET, ela não elimina o progra- 
ma da memória mas faz o computador 
retornar à tela de texto normal. Para 
voltar à tela de alta resolução, digite 
SCREEN 1. Um RESET geral do siste- 
ma é obtido por POKE 113,0: EXEC 
40999. 

Embora seja curto, este programa 
executa várias operações, e uma análise 
dos procedimentos de programação en- 
volvidos fica para outras edições de MI- 
CRO SISTEMAS, Por ora, vale constatar 
que com criatividade e um pouco de téc- 
nica, não há limitação que não possa ser 
superada, às vezes até com vantagens. 
se 
Cláudio Costa é desenhista free-lancer e tem 


como hobby a programação de microcompu- 
tadores. 











CONTABILIDADE ON-LINE PARA 


MICROCOMPUTADORES 











A Contabilidade INTELSOFT é a única que realmente 
funciona em modo on-line. A qualquer momento você 
pode fazer consultas no vídeo para obter saldos de 
qualquer conta e lançamentos em formato de razão. 


A Contabilidade INTELSOFT funciona tanto em 
micros de 8 bits, com sistema operacional CP/M, como 
em micros de 16 bits, compatíveis com o IBM PC. 
Todas as versões são funcionalmente idênticas 
podendo os mesmos arquivos serem usados por 
qualquer versão. Isso significa que ao mudar de 
computador você continua trabalhando da mesma 
maneira e aproveita integralmente o trabalho já feito. 


Na tabela ao lado você encontra as características mais 
importantes da Contabilidade INTELSOFT. Use-a 
para facilitar a sua decisão de compra, comparando-a 
com as concorrentes. 


PREÇO: 150 ORTNSs para micros CP/M 
200 ORTNs para micros MS-DOS 
(compatíveis com IBM PC) 


Caso você queira experimentar o sistema antes de 
comprá-lo, a INTELSOFT fornece um pacote de 
demonstração por apenas 15 ORTNSs. O pacote de 
demonstração é uma versão completa do sistema, sem 
nenhuma limitação, acompanhada do manual. O valor 
do pacote de demonstração pode ser aplicado 
integralmente, em ORTNS, na compra do sistema, em 
um prazo máximo de 60 dias. 





compare você mesmo a nossa contabilidade com os concorrentes 
CARACTERÍSTICAS INTELSOFT 





Número máximo de contas 65535 
Número máximo de lançamentos 65535 
Máximo de algarismos por valor 15 
Máximo de graus no plano 8 





Lançamentos de partida simples ou dobrada 


Permite trabalhar com ou sem centavos 


Emite relatórios especiais para corretoras e 








distribuidoras de acordo com os modelos do 
Banco Central 





INTELSO FT INTELSOFT Projeto e Desenvolvimento de Sistemas S/C Ltda 
RN Praia do Flamengo 66 Sala 1104 CEP. 22210 Te 





(027)265.3346 - Rio de Janeiro - RJ 





Você possui um TK90X e quer desenvolver o seu próprio adventure? 
Se a resposta for sim, este editor poderá auxiliá-lo nesta missão. 





Editor de Adventures 





Paolo Fabrizio Pugno 


ntes de mais nada, vamos bo- 
tar os pingos nos devidos iis: 
os programas “Editor” e “Ad- 


venture” foram elaborados e 
adaptados para a linha ZX Spectrum a 
partir de uma idéia semelhante publica- 
da na revista italiana “Microcomputer”, 
para a linha Apple. 

O assunto é adventure, este fascinan- 
te tipo de jogo que põe a dura prova 
nosso raciocínio, estratégia, paciência, e, 
às vezes, até mesmo sorte. Jogá-lo é uma 
coisa, elaborá-lo é outra totalmente dife- 
rente, onde devemos levar em considera- 
ção todas as possíveis situações que pq- 
derão ser enfrentadas pelo programa. 
Em resumo, não é nada fácil, embora 
não seja impossível. E tem mais, para 
cada adventure que escrevermos, tere- 

e bolar um programa gerenciador 
específico, que manipule os dados ne- 
cessários. Isto faz com que horas e mais 
horas sejam perdidas na depuração de 
um maldito programa. Às vezes, só de 
pensar em enfrentar tais dificuldades, 
desistimos logo de saída. Mas, que tal 
um programa universal, isto é, que sir- 
va para jogar todos os adventures que 
escrevermos? Tudo o que temos a fazer 
é “ensinar-lhe” as regras do jogo. Porém, 
é necessário que os dados lhe sejam for- 
necidos de uma maneira padronizada, e 
é E que entra em cena o “Editor”. 

a realidade, são dois programas: 
com o “Editor” ensinamos as regras do 
jogo à máquina, que vai organizá-las de 


24 


uma forma que o “Adventure” possa 
manipulá-las. Os dados são salvos em fi- 
ta, através da gravação de matrizes nu- 
méricas e alfanuméricas, vg serão pos 
teriormente carregadas pelo “Adventu- 
re”. Desta forma, podemos inventar o 
adventure que quisermos, sem nos preo- 
cuparmos com o programa gerenciador. 
Como jogar um adventure feito por você 
mesmo perde logo a graça, a sugestão é 
realizar trocas entre amigos que pos 
suam um ZX Spectrum ou TK90X; es 
sa troca consistiria nas matrizes salvas 
em fita pelo “Editor”. 


EDITOR 


Antes de rodar o “Editor”, é obriga- 
tório anotar tudo o que for necessário; 
fazer um mapa; dar números aos locais 
(começando por 1) e aos objetos; anotar 
os verbos e seus complementos; enfim, 
tudo o que depois será pedido pelo pro- 
grama. 

Dado o RUN, o “Editor” irá pedir o 
nome do jogo, o qual não deverá ter 
mais de dez caracteres, pois será utiliza- 
do como nome de uma matriz na hora 
de gravar os dados em fita. O programa 
então perguntará se o adventure é por 
pontos. Teclando S será pedido o esco- 
re a ser atingido para que o jogador al- 
cance a vitória. Logo a seguir, devemos 
introduzir o número total de locais de 
jogo, após o que será pedida a descrição 


de cada local. Essa descrição não deve 
ultrapassar três linhas (96 caracteres); o 
que, no entanto, pode ser alterado na li 
nha 60, mas cuidado para não desperdi- 
çar memória. Após introduzirmos cada 
descrição, devemos indicar que local é 
atingido quando nos movimentamos nas 
seis direções possíveis (Norte, Sul, Les- 
te, Oeste, Suba e Desça). Introduzindo o 
zero para uma direção qualquer, iremos 
provocar o aparecimento da mensagem 
“não posso ir nessa direção”, quando a 
mesma for executada nesse local; intro- 
duzindo o número do próprio local, não 
haverá deslocamento. Note-se que não é 
obrigatório nos locomovermos para lo- 
cais vizinhos (no mapa). Aliás, quanto 
mais complicado for o mapa, mais inte- 
ressante o adventure se tornará. 

Na segunda parte do programa, é pe- 
dido o número de objetos existentes no 
jogo e, depois, o nome de cada um (sem 
utilizar artigo) e sua localização inicial. 
Aqui, há um truque: o local zero não 
existe no jogo, e serve para colocarmos 
temporariamente objetos que devem de- 
saparecer ou para guardarmos outros 


que irão surgir posteriormente. Portan- - 


to, se uma chave só aparecer quando 
quebrarmos um vaso (por exemplo), seu 
local inicial será o zero e quando a ação 
“quebre o vaso” for executada, seu ve- 
tor posição será igual à posição do joga- 
dor. Não há limites de objetos por local. 
O nome do objeto deve ter, no máximo, 
14 caracteres. 
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Agora vem a parte mais importante, 
os verbos: Pegue; Apanhe; Solte e Lar- 
gue, para a manipulação de objetos (al- 
guns verbos já estão programados no ad- 
venture por serem os mais utilizados, 
portanto, não é necessário defini-los). 

Além dos verbos, podemos utilizar os 
seguintes comandos: Inventário ([), que 
mostra quais objetos estamos carregan- 
do; Pontos, informa sobre o escore; e 
Desisto, faz você recomeçar o j ou 
terminá-lo. E, é claro, Norte (ND sul 
(S), Leste (L), Oeste (0), Suba e Desça, 
para os movimentos. 

Para definir um verbo (e, portanto, 
uma ação), é necessário que tenhamos 
uma série de informações. Suponha que 
a descrição de um determinado local nos 
diz que há uma porta fechada ali. Esta- 
belecemos que essa porta só pode ser 
aberta com uma chave, que deve estar 
com o jogador, e que ao abrila, perde- 
mos a chave e somos transportados para 
outro local qualquer. A ação será “abra 
a porta”, e ela só pode ser executada 
nesse local onde há a porta e que, além 
disso, ao executá-la ganhamos alguns 
pontos. 

Como codificar este exemplo? O mi- 
cro vai perguntar: 

1) Imperativo do verbo: 

Abra. 

2) Complemento: 

Porta (sem utilizar artigo). 

3) Resposta do micro: 

“Ok. Puxa que lugar estranho!” (se qui- 
sermos que a resposta seja somente 
“Ok.”, basta teclarmos ENTER). 

4) Para que local sou transportado? 
(Aqui deverá ser indicado o número do 
local de destino, sendo que O indicará a 
permanência no local). 


5) Deslocamento de objetos: 

Nesta pergunta, ao introduzirmos um 
número inteiro positivo, indicamos que 
o objeto que tem esse número irá apare- 
cer no local. Um número inteiro negati- 
vo indica que o objeto que tem esse nú- 
mero (em módulo) irá desaparecer, ou 
melhor, sua posição será a sala zero, de 
que falamos há pouco. No nosso caso, 
se a chave for o objeto número 3, tecla- 
remos: -3. Se o número indicado for ze- 
ro, não haverá deslocamento de objetos. 
6) Variação de escore (só se o jogo for 
por pontos): 

Se o adventure for por pontos, introdu- 
Ziremos a variação no escore do jogador 
(positiva, negativa e nula) quando for 
executada esta ação. 

7) Onde executar o comando? 
Introduzindo um número inteiro post 
tivo, indicamos que esta ação só pode 
ser executada no local que tenha este 
número. Um número inteiro negativo in- 
dica que esta ação só não pode ser exe- 
cutada no local que tenha este número 
(em módulo). Zero indica que a ação 
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pode ser executada em qualquer lugar. 
8) Objeto necessário: 

Aqui, indicamos o número do objeto ne- 
cessário para a execução desta ação. O 
objeto deve estar em poder do jogador 
para que esta ação seja pesado 4 Zero 
indica que não é necessário objeto al- 
gum. No nosso caso, teclaremos 3 (o 
número da chave). 

9) Mais de uma execução? 

Se a ação puder ser executada várias ve- 
zes, teclaremos S, caso contrário, tecla- 
remos N. Se teclarmos N, o micro so- 
mente executará esta ação uma vez, re- 
cusando-se a repeti-la. Por exemplo, não 
podemos quebrar o mesmo vaso duas ve- 
zes. 


Note que se você quiser incluir o ver- 
bo “examine”, deverá programá-lo para 
cada objeto que puder ser examinado. O 
programa permite que tenhamos diver- 
sos imperativos iguais, desde que os 
complementos sejam diferentes; assim 
como permite complementos iguais, se 
os imperativos forem diferentes. Então, 
podemos ter um mesmo adventure: abra 
porta, abra janela, abra garrafa, quebre 
garrafa, tampe garrafa, examine chave, 
examine vaso, examine garrafa etc., des 
de E forneçamos as informações ade- 
quadas para cada caso. 


Observações importantes: o local -1 é 
o que indica que o jogador morreu ou 
foi eliminado do jogo. Portanto, se ao 
executar alguma ação o jogador levar a 
pior, devendo ser eliminado (por exem- 
plo: salte despenhadeiro), basta trans 
portá-lo para o local -1. Analogamente, 
o local -2 é o da vitória. Quando o ad- 
venture for resolvido, basta transportar 
o jogador para o local -2, que automati- 
camente o programa desvia para uma ro- 
tina de felicitações. A passagem para es- 
tes locais pode ser feita normalmente, 
seja através de consequência de uma 
ação (ou ações) como por deslocamento 
voluntário (N, S, L,O, Suba ou Desça). 

Além disso, quando um objeto está 
na posição -1 significa que está em po- 
der do jogador, o qual poderá carregar 
até cinco objetos. As posições dos obje- 
tos e do jogador não interferem entre si, 
pois são guardadas em variáveis distin- 
tas, 


Por fim, será perguntado o local ini 
cial de jogo, e, então, serão gravadas em 
fita as 14 matrizes que contêm os dados 
introduzidos. Devido às características 
do micro, é necessário que apertemos 
uma tecla qualquer antes do SAVE, por- 
tanto, cuidado para não se distrair. Se o 
VERIFY acusar erros, rebobine a fita e 
dê um GO TO 400. 

Quanto à digitação, esta não apresen- 
ta maiores problemas; as escritas em IN- 
VERSE são obtidas teclando-se INVER- 
SE VIDEO, antes do texto, e TRUE VI 
DEO, depois. Cuidado máximo nas li 
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CP500/Mº 
uma grande 
decisão 
para homens 
que tomam 
decisões. 


O CP 500/Mº agora também 
é compativel com o CP/M, o Sistema 
mais difundido no mundo. Isso 
significa que, somando o tradicional 
DOS 500 com o CP/M, você 
passa a dispor da maior biblioteca de 
programas aplicativos do 
mercado. E você poderá tirar vantagens 
de programas como Calc Star”, 
dBase 1I*, Word Star* e muitos outros, 
que vão agilizar tanto 
sua vida quanto a de sua empresa. 
Para você, executivo, 

o CP 500/M* é uma poderosa 
ferramenta de auxílio a 
decisões gerenciais, com programas 
especificos em sua área de 
atuação, como análise de fluxo de caixa, 
controles de compras/custos/ 
estoques e administração financeira. 
Como resultado final, sua 
empresa terá grandes ganhos de 
produtividade e eficiência. 

CP 500/Mºº, um grande passo na 
informática com a Qualidade CP 
ea Tecnologia Prológica. 











Caracteristicas | Sistemas Operacionais Inclusos 





SO-08 DOS 500 
Memória RAM | 64 Kbytes 48 Kbytes 
Memória ROM | 2Kbytes 16 Kbytes 
Compatibilidade | CP/M* TRS-DOS 
Video BOcolunas | 640u32 


por 24 linhas | colunas por 
16 linhas 








Vídeo 12" fósforo verde com controle de 
intensidade 

Teclado profissional capacitivo com numérico 
reduzido 

Interface para impressora paralela 

Opera com | ou 2 drives de face simples ou dupla 
Acesso a toda a Rede Nacional de Telemática, 
através de Interface serial padrão R$-232 € 
(opcional) 








* Marcas Registradas 


e 


COMPUTADORES PESSOAIS 


FOLOGCA Rg 
PROLOGICA 


EDITOR DE ADVENTURES 





nhas 410 e 430; elas devem ser iguais, 
exceto pela substituição dos SAVE pe- 
los VERIFY. Uma dica é escrever a li- 
nha 410, editá-la e substituir o número 
de linha e os comandos SAVE por 
VERIFY. 


ADVENTURE 


Ao rodar o segundo programa, ele 
irá simplesmente perguntar o nome do 
adventure que desejamos carregar, e, 
logo após o término do carregamento, 
entrar automaticamente em execução. 

Algumas recomendações: para movi- 
mentar-se, tecle “va para o norte” ou 
simplesmente N. Ao executar uma ação, 
você pode usar o artigo que quiser, 
tendo em mente que o programa reco- 
nhece somente a primeira e a última 
palavra da frase introduzida. Podemos 
então digitar: pegue martelo, pegue o 
martelo, pegue esse martelo ou pegue 
essa droga de martelo; que o efeito 
será o mesmo em todos os casos. Esse é 
o motivo pelo qual o Editor não aceita 
os artigos. 


OUTROS MACETES 


Se há uma sala escura que só revela 
seu conteúdo se acendermos uma vela 





DREM 
2 REM 
3 REM 












4 REM 

10 POKE 23658,8: BORDER 1º PAR 
ER 5: INPUT “QUAL O NOME DO ADVE TO 19 
NTURE QUE VOCÊ QUER JOG % 148 
THEN P 

e-to!! 

















40 IF POS=-2 THEN GC 














as LET qu=o 16 IF IF QU THEN GOTO 380 R ; INK 
50 FOR 1=1 TO NO o 226 376 PRINT “ESTOU CARREGANDO: 
IF PLI)C)POS THEN GOTO 75 M12 IF NOT SPON THEN PRINT 375 LET Qui 
IF QU THEN GOTO 70 NTURE NAO E POR PONTO 380 PRINT TAB 103 BRIGHT 15081 
INT ““0S OBJETOS VISIVEI TO 14 
LET qu=s PRINT 385 NEXT 1 
PRINT OSCI, TO 14). RES” PONTO 398 IF GU THEN GOTO BO 
75 NEXT 1 é IF NOT AS="A 395 PRINT “NAO ESTOU CARREGAND 
BO INPUT FLASH 1470 QUE FAREI PANHET) THEN C 
AGORA? “HS: PRINT !UOCGHS O IF BS n a 
35 LF H$ THEN CLS 2 GOTO 30 E PELO MENC r an 
90 LET AS="“: FOR F=1 TO LEN H 30 1F y 







THEN GOTO 10º 
NEXT F 





















(por exemplo), então, é conveniente 
termos duas salas; sendo uma com a 
descrição da escuridão, sem outras saí- 
das ou objetos; e outra, que é o seu 


equivalente, caso tenhamos luz. Defi- 
nimos assim uma ação, “acenda vela”, 
de tal forma que só poderá ser executa- 
da na sala escura e se tivermos a vela, 
e que além disso, nos transporte para a 
outra sala, com a outra descrição. E 


um verbo, “apague vela”, que faça o 
contrário. 

Experimentalmente, conseguiu-se di- 
mensionar matrizes referentes a 100 sa- 
las, 80 objetos e 150 verbos, o que 
acreditamos serem suficientes para a 
maioria dos casos. O comando POKE 
23658,8 força o cursor para o modo 
C (maiúsculas). Se você quiser incre- 
mentar um pouco mais, experimente 
um POKE 23609 30. 





UM EXEMPLO 





Aqui está um exemplo de adventure com 
cinco salas. Tente rodá-lo. Os números estão 
na ordem em que o micro os pede. 


Nome — “Teste” 

É por pontos? — Não 
Quantos locais? — 5 
LOCAL 1 


Descrição: “Estamos numa velha sala de 
estar. Há muito pó, aqui!” 


[roms [ou [uesre [oesve [ soma | oesca | 
CHEZ ESREEÃ ES 
LOCAL 2 


Descrição: “Estamos num corredor. Há 
uma escada que desce e uma porta”. 








ND ECI 





THEN P 


ea 
RINT 


THE 


IF P(I)C)-1 THEN GOT 





NOT AS="PONTOS” THEN GOT 


















NESTE Al 
N 








LOCAL 3 


Descrição: “Que lugar estranho! Há um 
botão na parede”. 


LOCAL 4 


Descrição: “Está muito escuro, mas perce- 
bo uma tocha apagada na parede”. 
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BRASLTR ADE CENTER 


Comércio, Indústria e Participações S.A. 


COMPUTER SHOPPING 


Mesas BTC-05 M eee 
para Cr$ 1.549.000 BTC-03 M EA 
Microcomputadores Cr$1.099.000 


Fabricação própria € Cores discretas € Desenho moderno 















BTC-04 M 
BTC-01 M 





BTC-02 M 
Cr$1.149.000 





















Cr$ 1.049.000 Cr$ 899.000 


Nas lojas Brasil Trade Center, você também 
encontra video-game, cartucho com jogos, 
som, telefonia, etc., das melhores marcas. 


VISITE UMA DE NOSSAS 
LOJAS E COMPROVE O 
QUE ANUNCIAMOS 


Matriz: Av. Epitácio Pessoa, 280 
Ipanema-RJ — Tels.: 259-1299/259-1499 





EQUIPAMENTOS 


Micros das linhas: Sinclair € TRS-80 € CCE € Unitron e 
Dismac € TK 2000 Il e TK 85 € Exato Pro e Impressoras 
Modem € Etc. 








SUPRIMENTOS 


Periféricos € Disketes € Fitas € Drives € Placas de 
Expansão € Interfaces e Formulário Contínuo € Cabos 
e Arquivos para Disketes € Etc 


SOFTWARE 


Programas e Jogos variados para todas as linhas e 
marcas de Computadores 


VIDEOS 


Curso de Inglês em vídeo cassete € Telão € Suporte 
para TV e Transcodificação para todos os sistemas € 
Fitas: VHS - BETA-U-MATIC e para limpeza de cabeça O 
Baterias para 2 e 8 hs. € Iluminadores € Cabos de 

extensão para Câmaras e Bolsas para Câmaras e Vídeos 





Filiais: Rua da Assembléia, 10 — Loja S-112 
Centro-RJ — Tel.: 222-5343 








Rua Silva Vale, 416 — Cavalcante-RJ 
Tels.: 592-3047/592-3098 


Rua Lopes Trovão, 134/Sala 201 
Niterói-RJ — Tel.: 710-3659 


Rua Conde de Bonfim, 229 — Loja A 
Tijuca-RJ — Tel.: 284-2031 


SERVIÇO EXPRESSO REMETEMOS PARA TODO O BRASIL 


OFERTA VÁLIDA COM A APRESENTAÇÃO DESTE ANÚNCIO 

















EDITOR DE ADVENTURES 


UT Hz LET NCI,6)=H5 PRINT H 
169 INPUT 
="N” THEN GOTO BO 
B 470 NEXT I 
POKE 23659,8: CLS 180 PAPER 1º BRIGHT 1: 
= INPUT CollAL E O NOME DO ADVEN LS 5 INPUT 
O JOGO 7 “;NO: DIM OSCNO,15): DI 


TURE “AS: IF AS="" THEN GO 
To 16 M P(NO) 
20 LET SPO ET PONHAX=1 

30 PAPER é 2 PRINT “O ADV 


NPUT H$7 PRINT H$5 
D H$0)75” THEN GOTO 36 

46 IF M$="S” THEN LET SPON=13 
PRINT “QUAL E O SCORE MAXIMO 2%z RA? 


IF HEOUNC AN StI, 


INPUT PONHAX: PRINT PONHAX INPUT 
ER 4: BRIGHT 4: CLS 2 IN Nº THEN GOTO 200 

2ã0 NEXT 1 

L 240 PAPER 2º INPUT 

“sNUS DIM VSCNU 15): DIM CS 


NTOS LOCAIS TEM O ADVENT 


DIM LSCNL. 96): 

FOR 1=4 10 NL 

CLS + PRINT “DESCRICAO DO L 

“3 INVERSE 4517 

+ TO )3 PRINT LSCI, TO 5º" 

PRINT “QUE LOCAIS ALCANCO E 
XECUTANDO. 2.7!" 


DIM MeNL.6) DOS? 
1 TO NU 


UT HE LET MCI,1)=H27 PRINT INT H$ 
110 PRINT “SUL 5 : INP 
UT HE LET NOT, 2)=H3 
120 PRINT “LESTE 2 INP 
UT HE LET MCI,3)=HE 
136 PRINT “OESTE « 2º INP 
UT HE LET MCI,4)=H5 
148 PRINT “SUBA “ps INP 
UT HE LET MCI.5)=Hz 
150 PRINT 





LOCAL 5 


Descrição: “Estamos num porão. Veja uma 
saída ao Sul e uma caixa no chão.” 





Quantos objetos? — 7 


























OBJETO DESCRIÇÃO LOCAL 
1 CHAVE 0 
2 ISQUEIRO 1 
3 MAPA 1 
4 2 
5 MICRO = 
6 MARTELO 5 
7 SERROTE 2 





Número de verbos — 6 


Para exemplificar a entrada dos verbos, 
complementos e outras informações sobre o 
adventure, descreveremos apenas o primeiro 
exemplo. Portanto, valerão para todos os 
exemplos, após o primeiro, as mesmas pergun- 
tas. 


Verbo 1 — Abra 

Complemento — Caixa 

Resposta do micro — Veja o que achamos! 
Transportado para — O 

Deslocamento de objetos — 1 

Onde pode executar — 5 

Objeto que deve ter — O 

Pode-se executar mais de uma vez — N 


Verbo 2 

Aperte 

Botão 

Ok (tecle apenas Enter) 
-2,0,3,0,N 


Verbo 3 
Abra 
Porta 


Ok 
3,0,2,1,N 


190 FOR I=1 TO NO 
206 CLS + 
ENTURE E POR P P (SANDUta 1 “y INVERSE 431'2 INPUT HS: LET O 
TO 14)=H$: LET 0SC(1,15)=CHR 
5 LEN H$: 
210 PRINT 
“* INPUT PCIDE PRINT PCI) 2 


(NV ,ÃS): DIM HSCNU,64)z 
»2 DIM FENV)S 


INPUT LINE UV) DIM BCNU)Z DIM KCNUSZ FOR I= 


256 CLS + PRINT “QUAL O VERBO “ 
21"3 INPUT H$E LET VSCI, 
190 PRINT “NORTE CND “rs INP O M$ LET USCI.15)=CHRS LEN HS: PR 


PRINT “QUAL SEU COMPLEMENT 
*s INPUT H$z LET CS(I, TO 14 
)=H$t LET CSCI,15)=CHRS LEN HS: 
PRINT H$ 

278 PRINT "cal 
MICRO 2º: INPUT LINE HS: IF H$=” 
* THEN LET H$="0K.” 

280 LET M$CI, 
DESCA “as INFO CI, TO) 


“TUDO OK? “sHS: IF HS 
RTADO 
T Dt) 
INK 73 € 
“QUANTOS OBJETOS HA NETO? 
(DD PRINT FCT) 


310 IF SPON THEN PRINT '“UARIAC VE “AUM.SCORE 
Con,-n,0) 


AO DE SCORE? 
PRINT “QUAL O OBJETO UT ACID: PRINT ACI) 


O COMANDO? 


PRINT HS" TTSALA “FUCI) 


“EM QUE LOCAL SE ENCO 330 PRINT 
“TUDO OK? “4HSE IF H$ 

OSCB(I),15)) 

340 PRINT 
“QUANTOS VER 
INPUT H5$ 
1)=1: GOTO 360 
350 LET K(TI=O 


DIM DENY 
DIM ACNU): DIM ULN 


s: 17 H$=“N 
a70 NEXT T 
TO 14)= 
LS + PRINT 


NV 


UAL A RESPOSTA DO 


TO »=H$: PRINT HS  AUSE O 


290 PRINT “PARA QUE LOCAL SOU — AIS” DATA L$()Z SAVE 
TRANSPORTADO (G=NAO SOU TRASNSPO 
"a INPUT DCI): PRIN 


300 PRINT '“DESLOCAMENTO DE 08J L.” 
Coneon, 0)" INPUT F 


*"POSSO EXECUTAR ESTE 
VERBO MAIS DE UMA VEZ? (5/N)“3 
IF HS="N” THEN LET KC  IFY “MENSAGENS” DATA MSC)? VERIF 


380 PAPER 4: INK O: BRIGHT O: E 

“QUAL O LOCAL DE INIC 4; 
10? “pt INPUT POS: PRINT POS OKTs 
a90 DIM Z(6): LET Z(1)=POS: LET 
Z(2)=5PONt LET Z(3)=PONHAXE LET 
Z(4)=NLZ 14 Z(5)=NOS LET Z(6)= 


DESLOC.” D 
ATA NC): SAVE “OBJETOS” DATA 08€ 
)2 SAVE "POS.0BJ.” DATA P(dZ SAU 
E “VERBOS” DATA USC): SAVE “COMP 
DATA C$C): SAVE “MENSAGENS” 
DATA H$()3 SAVE “VOUPARA” DATA D 
(3 SAVE “DES.0B).” DATA F()S SA 
TA ACE SAVE “P 
“3 INP ODE? DATA Ul): SAVE “OBJ.NECES. 
“ DATA BC): SAVE “REP.VER.” DATA 


320 PRINT '“ONDE POSSO EXECUTAR K() 
“a INPUT U(I): PRIN 


420 CLS : PRINT AT 10,07"REBOBI 
NE A FITA PARA O VERIFY” 


""QUE OBJETO DEVO TER 430 VERIFY AS DATA Z()z VERIFY 
(O=NENHUM)": INPUT B(I): IF B 
(1) THEN PRINT OSCBCI), TO CODE 0C.” 


LOCAIS” DATA L$(): VERIFY “DESL 
DATA MC): VERIFY “OBJETOS 

DATA 08(): VERIFY “POS.08J.” DAT 
A Pl): VERIFY “VERBOS” DATA V$C) 
= VERIFY “COMPL.” DATA CS(): VER 


Y “VOLPARA” DATA DC): 
5.084.” DATA FC)? VERIFY “ALM.SC 


VERIFY “DE 


360 INPUT FLASH 15“TUDO OK? “5H ORE” DATA At): VERIFY “PODE?” DA 
” THEN GOTO 250 


TA UC): VERIFY “OBJ.NECES.” DATA 
Bl) VERIFY “REP.VER.” DATA K() 
440 CLS = PRINT AT 10,07 FLASH 
"OK OK OK OK OK OK OK OK OK Ok 
0,07 FLASH 0: “BOM JOGO 
ADVENTURE 177 





400 PAPER 7: INK 2: CLS : PRINT 
AT 10,57"VOL GRAVAR AS MATRIZES 
APERTE UMA TECLA“: P 


410 SAVE AS DATA Z(): SAVE “LOC 


É um mapa de Hong Kong! 
0,0,-1,3,5 


5,0,4,2,S 


Verbo 6 

A e 
Toc 

Ok 
4,0,5,0,5 


Local de início: -1 


VARIÁVEIS UTILIZADAS PELOS 
PROGRAMAS 


L$ (matriz alfanumérica) — Contém as descri- 
ções dos vários locais. 


M (matriz numérica) — Contém os vetores de 
deslocamento nas seis direções (N, S, L, O, 
Suba e Desça). 


OS (matriz alfanumérica) — Contém os no- 
mes dos objetos, sem artigo. 


P (matriz numérica) — Contém a posição de 
cada objeto. Há posições particulares! 
-1 indica que o objeto está com o jogador 


O indica que o objeto está no local zero 
(guarda-objetos) 


VS$ (matriz alfanumérica) — Contém o impe- 
rativo dos verbos do jogo. 


C$ (matriz alfanumérica) — Contém o com- 
plemento de cada verbo. 


M$ (matriz alfanumérica) — Contém a mensa- 
gem a ser dada ao jogador quando for execu- 
tado o verbo correspondente. 


a 





D (matriz numérica) - Contém o eventual 
deslocamento do jogador relativo ao verbo 
correspondente. 


F(matriz numérica) — Contém o eventual des- 
locamento de cuecas (aparecimento ou desa- 
parecimento) relativo à execução do verbo 
correspondente. 


A (matriz numérica) - Contém os pontos re- 
lativos à execução do verbo correspondente. 


U (matriz numérica) — Contém o flag que in- 
dica onde o verbo correspondente pode ser 
executado (O =em qualquer lugar). 


B (matriz numérica) — Contém o número do 
objeto necessário à execução do verbo corres- 
pondente. 


K (matriz numérica) — Contém o flag que in- 
dica se determinado verbo pode ser executado 
mais de uma vez. 


Z (matriz numérica) — Contém os seguintes 
s: 


Z(1) = posição inicial 
2) = alo que indica se o adventure é por 
ntos 


3) =escore a ser alcançado 
Z(4) = número de locais 
Z(5) =número de objetos 
Z(6) =número de verbos 


J — Número de objetos em poder do jogador 
A$ — Primeira palavra introduzida 

B$ — Última palavra introduzida 

PONMAX — Escore a ser al do 

SPON — Indica se o adventure é por pontos 
SCORE — Escore do jogador 

POS — Posição do jogador (ver texto) 

H$ — Ordem do jogador 





Paolo Fabrizio Pugno cursa atualmente o pri- 
meiro ano da Faculdade de Engenharia Indus- 
trial (SP) e possui um ZX Spectrum, com o 
qual desenvolve programas. 





MICRO SISTEMAS, Janeiro/86 


j A 
AA” continuamos renovando Á 


A mais completa linha de Software para o . 
Color Computer CP. 400, Color 64, MX-1600 


MICROMAQ - Rua Sete de Setembro, 92 - Lj. 106 - Tel.: (021) 222-6088 CEP 20050 RJ 








PROMOÇÃO DE FÉRIAS 


Fitas com dois programas 
Seleção de alguns dos melhores “games” agrupados dois a dois. 


PR.001 - Zaxxon/Buzzard bait 
PR.002 - Draconian/8 ball 

PR.003 - Speed racer/Bag-man 
PR.004 - Galagon/Demon seed 
PR.005 - Space wreck/Sea dragon 
PR.006 - Sanctum/R-ball 

PR.007 - Sea quest/Quix 

PR.008 - Calixto island/Pooyan 


PR.009 - Lunar rover/Devil assault 
PR.010 - Time patrol/Moon shuttle 
PR.011 - Canyon climbiFly tiger 
PR.012 - Decathlon/Cashman 
PR.013 - Color car/Kron 
PR.014 - Rat/The king 
PR.015 - Cristal/Doodle bug 
PR.016 - Time bandit's/Tut's tomb 


ATENÇÃO: - qualquer fita acima 40.000. 


AN 


PR.017 - Time fighter/Moon hopper 
PR.018 - Mudpies/Death trap 
PR.019- Crash/Ranger 

PR.020 - Color panik/Shenanigans 


- as fitas acima não sofrem desconto 
de qualquer espécie. 





Solicite nosso catálogo com mais de 300 produtos 
RECORDISTAS DE VENDAGEM - 1985 









































E006 WORLD'S OF FLIGHT - Simulador de vôo 50000 PDO0! CALIXTO - Ajude o arqueólogo (Prof. Lagarto) a recuperar o tesouro 35.000 
PPOOZ CYRUS - Para amantes do jogo de xadrez 35000 PDOO3 SEA QUEST - Recupere o tesouro perdido 35.000 
PJOI!  ZAXXON - Enfrente os perigos de uma plataforma espacial 35000 PDOOS BLACK SANCTUM - Exorcize o demônio 35.000 
PJ005 CRISTAL - Sensacional - estilo Pac-Man em 3D 35000 PJ023 DEMON SEED - Destrua pássaros, sementes e naves 35.000 
ED06 SAILOR - Derrote o Brutus e conquiste o coração da Olivia. 3 telas. 9 níveis de EOO2F MUSICA 2- Para compor, arranjar, copiar partituras etc. 140.000 
dificuldade 35000 PUOOSF SUPERSCREEN - Aumenta o tamanho da tela (52 colunas, 24 linhas), Acrescenta 
PJO51 SPEED RACER - Corrida de carros (tipo flipper) 35.000 funções diversas 100.000 
PJO39 DRACONIA - Salve os prisioneiros do espaço e fuja do dragão 35000 PAOOZF ELITECALC - Planilha eletrônica. Até 255 linhas e colunas. Manipula textos, números 
PJOI8 BUZZARD BAIT - Ataque os pássaros com sua lança 35.000 etc. Emite gráficos e permite ordenar colunas e linhas. Manual em português 150.000 
PJ06S GALAGON - Idêntico ao Fantastic do flipper 35000 PLOOIF EDTASM- Linguagem Assembler 150.000 
PJO58 QUIX - Idêntico ao do flipper. Preencha 75% da tela sem ser atingido 35000 PLOQSF COLOR LOGO - Linguagem educativa logo 180.000 
PJO59 DECATHLON - 10 provas olímpicas 35000 PAQO7D PRO COLOR FILE - O melhor banco de dados já criado para o color. Somente em 
PJOT! SPACE WRECK - Defenda sua base espacial do ataque inimigo. 3D com naves disco (preço incluso) 270.000 
estilizadas 000  PADO6F TIMSISIGA - Banco de dados que permite criar até 8 campos. Manual em port. 130.000 
Para programas em disco, acrescer 
60.000 por programa (Disco + Embalagem) 
COLOR MAX (módulo de alta-resolução) - Reproduz no color com 64K a perfor- 
mance gráfica apresentada ao Macintosh, imitando as do MacPaint. 
Utiliza técnicas odersas programação tipo “Icons” e “Pulldown Menus”. 
Composto de placa de Hardware e programa em fita ou disco EO01F CONSULTE. 
(Para cálculo de ORTN, considerar a data da postagem) Eo01D BAIXOU! 
OUTROS PROGRAMAS 
* JOGOS SÓ PARA DISCO « 
(preço cidisco incluso) 
e APLICATIVOS PIFITA 
PS002D EAGLE - Simula um vôo espacial em que você deve aportar e levantar vôo da lua WRITER I- Tela de até 85 colunas, “Window” do texto com a forma final. Permite 
ou de marte. Manual em inglês. Requer 2 Joysticks 90.000. ão de caracteres em português (na imp). Mais de 100 funções PAOOIF 200.000 
PSO03D THE FACTORY « Crie a linha de montagem de uma fábrica e teste a sua memória 90.000 MALA POSTAL (1) - Totalmente criado no Brasil. Emite etiqueta, relatório e lista 
PDOO5D SANDS OF EGYPT - Descobrir o mistério da tumba do Faraó 90.000 telefônica PAOI3F 160.000 
PDOO8D CRIME - Desvende o mistério de um crime. Afinal, você é o detetive 90.000 ASTROLOGIA - Gerador de mapas astrológicos PAOITE 150.000 
PDOO9D MAJOR ISTAR - Viajando através das cidades submarinas do século 21, você deverá HANDY MAN - Auxiliar no cálculo de custos de obras civis, cálculo de áreas, 
desvendar o mistério de Trident 90.000 coberturas etc. PAO3OF 35.000 
PDO10D SAM SLEUTH - Desvende o mistério de um desaparecimento 90.000 STATGRAF - Estatistica. Gera gráficos com regressão linear, médias, desvios etc. 
PDO1D STAR TRADER - Mercador das galáxias 90.000 PAOZIF 160.000 
* APLICATIVOS PIDISCO 
* GRÁFICOS VIP WRITER - Idem ao PAOO1F PAOOID 260.000 
ARTGRAF - Criado pela Micromag. Necessita 64K. ad = VIP DATABASE - Banco de dados PADISD 260.000 
na memória no mais aito modo gráfico. 200.000 MATHMENU - Sistema eba no estudo da matemática PAOZID 220.000 
POUUD 260.000 DYNACALC - Planilha eletrônica. Gera gráficos em alta resolução PADND 260.000 
VIZIDRAW - Muito potente para desenhar. Acompanha o Vizidump, que leva suas ELCIRCAN - Analisador a circuitos elétricos PAOZBD 220.000 
telas para a impressora PGOOSD 300.000 STATGRAF - Idem ao PAOZIF PARZID 220.000 
ART GALERY - Potente gerador de gráficos e telas de desenho PGOOZF 150.000 « UTILITÁRIOS EM FITA 
a VDOS - Simúla o sistema operacional de disco em fita PUOI3F 120.000 
* SOM, SINTETIZAÇÃO FAST TAPE - Dobra a velocidade de leitura e gravação paracassete  PUOIMF 130.000 
COLOR QUAVER - Para compor, arranjar, copiar partituras, monta espectro, cria COLORKIT- Ferramenta muito potente para trabalho com amemória. Acrescenta 
Ondas etc. E rpecã bi mais 30 funções ao Color. PUOISF 160.000 
O, gm « UTILITÁRIOS EM DISCO 
+ EDUCATIVOS ADOS - jr de DOS. O mais dlcado irao, da boas punto ro mao 
TABELA PERIÓDICA DE QUÍMICA mos dio E O O 
PEOIZD 100000 Vip DISK ZAP- Altera todo o conteúdo de um disco PUOZOD 320.000 
MAPA MUNDI Desenha na tela Mapa Muni, Ortográfico ou Polar PEDE JOMIO WHERE IST? - Gerenciador de diretórios Auto explicativo PUIBD 150.000 
1 L 
Desconto Desejo receber o(s) seguinte(s) programa(s), pelo(s) qualis) pagarei a quantia de Ci 
até 150.000 sem desconto PROGRAMAR: 
de 151.000 à 250.000 5% NOME: 
de 251.000 acima 10% ENO: 
CIDADE: ur. cer; 





Para tai emtonrentando Ed pi do e DA 


Rua Seta do Setembra 9 
Despesas de 


20050 - Rio de Janeiro - Ru. 





ATENÇÃO: Só serão aceitos os pedidos com postagem até 31/01/86. 






e 
zx81 zx81 zx81 zx8 






30888 31208 
30896 01 34 7B Cí D1 Eí C9 2A 31216 CI 9C ZA 36 00 






































































30904 OC 40 01 FS 02 09 3E 4€ 31224 CD 26 7A E1 28 7B D6 1B 38 F9 Dá 25 30 

30912 BE 20 04 2B BE 28 FC 3E 31232 03 AF ED 42 7E 31552 FS C6 40 77 23 ZE FE 00 

30920 BO BE 28 09 35 23 BE CB 31240 06 FE 00 20 04 31560 C8 18 E9 ES DS CD BB 02 

30928 36 25 18 F9 Ei 2A 84 78 31248 C3 81 ZA FE gé 31568 ES Cí 2C 28 FB CD BD 07 

30936 16 0B ES 06 12 7E FE 76 : 82 CA D4 78 36 00 CD 98 31576 J7E FS CD BB 02 2C 20 FA 

30944 28 06 Có 80 77 23 18 FS 78 CD 85 79 18 E9 DS CS 31584 Fi Di Eí CP 2A OC 40 11 

30952 23 10 F2 CD FD ZA Ei 45 SF 23 16 07 03 AF ED 42 31592 65 00 19 06 11 36 00 23 

30960 20 EB C9 AF DE FE CB 47 ZE FE B6 28 04 15 20 F5 31600 7E FE BO 20 FB 23 23 10 

30968 CO 21 BO 78 7E FE 05 CB 7B Ci Di C9 36 00 1A FE 31408 Fó C9 36 BO 06 4E 23 77 

= 30976 34 2A 82 78 23 97 BE 20 os 28 02 09 09 AF ED 42 31616 10 FC 23 36 80 23 23 C9 

! 30984 03 36 16 CP CB dó 28 04 ZE FE 08 20 03 12 48 FS 31624 ED SB OC 40 13 21 00 78 

hunderbird 30992 77 CD 98 78 C3 85 79 AF FE 03 20 03 12 18 EC 28 31652 01 20 00 CS ED BO Cí 13 

a 31000 DB FE CB 4F CO 21 81 78 7E FE 00 C2 13 7A 36 13 31640 ED BO EB 23 3E 03 CD 7A 

MR EE TE a Cu can RR SRA É je ts a qui io Dm iq A o [o e E ip, qu ij, dj 31008 ZE FE 03 C8 34 2A B2 78 13 23 C3 9C 7A 2A 84 78 31648 7B 3E 11 01 1F 00 36 BO 

Gilson Roberto Viana 34016 2% 21 00 49 3E B7 BE 23 11 87 78 01 21 00 ES 1656 09 36 80 23 23 3D 20 F6 

31024 DL 79 03 4C 79 2A 82 3E OC 36 00 09 aD 20 FA 11664 3E BA CD ZA 7B EB 04 2 

1 31032 78 23 11 21 00 49 7E FE Eí 23 7E FE BO CA 9F 7A 31672 00 C5 ED BO Cí 13 ED BO 

31040 BA CB FE B7 20 F7 36 00 ES 7E FE BA 20 03 Ei 18 31680 EB 23 36 B2 23 36 83 23 

31048 19 BE 28 FC 97 BE 20 03 Fo FE 00 28 OF FE 08 CA 1688 36 B1 06 1D 23 36 BO 10 

31056 96 87 C9 CB 46 28 04 77 DO 79 FE 2D CA F3 79 FE 31696 FB CD F7 7B CD 4B 7B FE 

34064 CD 98 78 C3 BC 79 ZA B4 13 CA 3C 7A 09 18 E2 CD 11704 76 20 F9 CD 64 7B 21 80 

Thunderbird é um programa animado, baseado numa bata- rs to. 31072 78 23 7E FE BA CO FE 16 99 79 CD SE 79 CD 36 79 34712 78 97 77 23 77 CD AA ZA 

lha aérea onde você tem, como árdua tarefa, a missão de pilo- 1) Digite a listagem 1; 31080 20 F7 36 00 23 BE 28 FC 18 11 2h OC 40 11 64 00 11720 2h OC 40 11 DE 02 19 7E 

a da 4 , Pp 2) Digite GOTO 100 e NEWLINE: 31088 97 BE 20 04 36 16 18 EP 19 22 84 78 11 07 00 19 31728 FE 1D 28 47 35 18 DD CD 

tar um avião de bombardeio por uma região montanhosa e infes- 3) Quando for pedido endereço inicial, digite 16514 e NEWLI- 31096 CD 92 79 CB 46 28 E? 77 97 48 27 2A 82 78 ES Di 31736 64 7B 2A OC 40 01 OE 01 

tada de mísseis antiaéreos e caças inimigos. Cada projétil ini- NE; 31104 CD 98 78 18 DC FE 16 28 01 21 00 AF DB FE CB SF 31744 09 41 2D 7C EB 05 ED BO 

migo abatido por um tiro ou uma bomba aumentará sua pon- 4) Et os códigos em linguagem de máquina da listagem 2 e, G1120 18 04 ES 21 80 76 55 Ei ED 42 7E FE 00 26 67 PE 31760 00 ED 01 nO F3 CE di 09 
tuação em 10 pontos. UNO eo aedia, 24126 [o 54 667 2 ES 20: 40 GS cho (7 ; ia É DIFE DA 7 2 

NTEs do, n ; 34128 C9 21 86 78 34 7E 21 00 03 28 43 C3 DS 78 97 17 31768 ME 24 FF 7A 71 EB 2B BE 

Cada vez que você colidir com um obstáculo (montanha, ENCOLINE, RpRnentE or pac touendanaços inicial, digita 30720 31196 09 23 3D 20 FC 23 3E 55 1B 12 36 B2 2B BE 20 F3 31776 20 FC C6 80 77 (9 4D 1E 

míssel ou caça), perderá uma nave e O jogo só se reiniciará 6) Digite os códigos em linguagem de máquina da listagem 3 e, 31144 Bó 4F 3E OE A6 CB SF 28 36 B6 23 22 82 78 CD F3 31784 1F 00 00 09 OF 33 ZE 3B 

quando for pressionada a tecla NEWLINE. O jogo acaba quan- quando terminar, digite “XX”; dá atiga F4 DA OC 40 14 92 02 49 78 CD 47 79 CD B7 78 CD 31792 2A 31 OE 00 1D 00 00 1E 

do você perder suas três naves 7) Apague (delete) as linhas de 100 até 210; 31460 44 21 so 36 08 ED 52 3D FD ZA C3 65 7A 01 01 OF 1800 00 00 4F ES CD 13 78 E1 

er su o o. R ' 8) Finalmente, se tudo estiver correto, prepare a fita para gravar 31168 20 F9 79 FE 7F 28 06 FE 06 79 BO 20 FB C9 2A OC 1808 36 1F CD 06 78 11 73 78 

A cada reinício de partida, o leitor pode modificar a veloci- e digite RUN e NEWLINE. 31176 FF CO 6 13 C9 36 2D C9 40 11 DA 02 419 EB 21 10 31816 EB 01 OC 00 ED BO C3 Dá 

31184 23 BE 2B 28 02 36 00 28 





dade de acordo com o nível escolhido, que pode ser lento 00 19 C9 CD 06 78 13 23 824 78 90 00 00 00 00 


(1), médio (2) e rápido (3). Entretanto, se você estiver reali. Figura 1 






31192 BE 20 09 23 23 BE CA 78 







zando uma competição, é aconselhável manter o mesmo nível, ; . Eaess E 
para que todos os jogadores pilotem com o mesmo grau de di: 6 — desce; 7 — sobe; 9 — dispara bombas (máximo de três A 
ficuldade. bombas) e O — dispara tiros (máximo de cinco tiros). Listagem 3 

Caso você consiga quebrar o recorde antigo, terá o privilé- Veja, na figura 1, como você deve proceder na digitação do 


gio de escrever seu nome no quadro dos campeões. O nome programa. 


pode ter, no máximo, sete letras e, se for maior, deve ser com- E E E - 
pletado com pontos ig Roberto Viana é estudante do Curso de Engenharia Elétrica, na 
3 : A P; ad: os É 
Os controles podem ser usados simultaneamente. São eles: Tr é Programador autodidata há doisanos. 













































BEST SELLERS: 
1 REM SLSLLLLSÍLSÍLSIALILSLAI 150 IF B+8=N THEN LET B=N Bo BO BO & APPLE 5 15 BASIC Rápido: Além do BASIC TRS-80 — 

E EREREEE! 160 IF B<)N THEN GOTO 180 AD BA B3 ANÇAMENTOS 8 Como Programar seu APPLE — Cook, R. e Gratzer, E. A, e Gratzer, T. G. — Cr$ 99,000 

10 DIM K$CL110) 165 SCROLL BZ A9 B0 97 97 Hartnell, T. — Cr$ 41.000 16 Manual do Microprocessador Z-80 — Barden 
26 RAND USR 16528 170 PRINT N$º : Bo 80 BO ANEIRO/86 rs Ba 00 Eudes ” Progumação em ASSEMB! El 

10 SAVE THUNDERE IRD 180 PRINT ASC TO 2> 2E 34 938 Ex Re E em LER e Linguagem 
40 RAND USR 16535 190 LET ASAE IS To 33 24 E 6 Ba000 RCA DEM pi a (2º edição) — Alexander, D. 
190 CLS 200 LET NeN+4 7 34 00 * 1 MUMPS — Lobo, M. C. — Cr$ 49.000 Ea SINCLAIR O 
105 PRINT “ENDERECO INICIAL 210 GoTO 125 a2 2 Inteligência Artifi BASIC — James, 

; perdido rir DS. 11 BASIC pera Aplicações Comerciais — 19 Dessfio: Os Mais Excitantes Jogos em 
107 INPUT N AL ç 3 VISITREND/VISIPLOT: Guia do Usuário Hergert, D. — Cr$ 55.000 BASIC — Botelho, A. J. L. — Cr$ 87.000 
110 PRINT N Brasileiro — Christmann, R. U.— Cr$ 54.000 12 BASIC com Estilo — Nagin, P. e Ledgard, H. 18 Primeiros Passos com o seu SINCLAIR 

7 Rá ; F. — Cr$ 48.000 (TKs) — Hughes, C. — Cr$ 49.000 
115 LET B= Listagem 1 ; q ; 4 LOGO: Uma Introdução — Goodyear, P. ; Jughes, 
o 30808 Bc g M. — Cr$ 82.000 13 BASIC Básico — Pereira F9, J. C. — (58 edi- 20 Programas Administrativos em BASIC SIN- 

120 LET A 30816 05 2 4 5 Linguagens de Programação para Micros — ção revisada e ampliada) — Cr$ 64.000 CLAIR — Karsten, L. — Cr$ 57.000 
125 IF ASta TO )= THEN INPUT 30824 DF OF , Marshall, G. — Cr$ 72.000 Tas-8o 

AS na 6 Pascal para Micros — James, M. — Cr$ 68.000 LINGUAGEM DE MÁQUINA 21 30 Programas em BASIC pars 
aSO EF ASR TÇ THEM BOTO à 16514 DA 10 40 11 06 19 44 7 Técnica de Gerenciamento de Arquivos — 14 Além do BASIC — Lingusgem ASSEMBLY res Pessoais — Chance, D. — Cr$ 92. 

né 16522 00 78 01 55 04 C9 CD 82 Claybrook, B. G. — Cr$ 125.000 - para a Linha SINCLAIR — Santos, N. — 22 1001 ken eai Pes 
135 BOTO (AS="..")x(-40)+(AS 16530 40 EB ED BO C9 CD 82 40 Cr$ 60.000 soai — Sawusch, M. — Cr$ 86. 

aaa p dr A 16538 ED BO C3 BB ZE do vo ou 
140 POKE N, (CODE AG-28)*16+CODE 30872 2 ESTA É APENAS UMA SELEÇÃO DE NOSSOS TITULOS. PARA MAIORES INFORMAÇÕES SOLICITE NOSSO CATÁLOGO. 





AG(Z) 





30880 







Listagem 2 








Editora Lampus E Msn ano de mus om à E 


tora Campus Ltda. (O porte é por nossa 
Rua Barão de Itapagipe 55 - 20261 - RJ - RJ- Tel.: (021) 284 8443 conta e sua encomenda chega mais rápido.) 
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Si Micro REFERENTES AOS NÚMEROS ASSINALADOS: Ema 
Para sua maior comodidade, a ATI Editora Ltda. coloca à sua disposição st mas 13 Mediante pagamento contra recebimento 
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Fuga cósmica 





José Marcelo de Freitas Vilela 


O programa “FUGA/BAS” é um jogo ro- 
dado em BASIC, mas que possui uma pequena 
rotina em linguagem de máquina, nas li- 
nhas 20 e 21. Esta rotina ativa a unidade 
sonora do equipamento, através da instru- 

ão J = USR(X); sendo J uma variável muda e 
ç a frequência e a duração do som desejado. 
programa foi desenvolvido para os 
micros que têm 48 Kb de memória, compatí- 
veis com os modelos 1 e II do TRS-80 (quer 
possuam ou não unidades de disco). 

A listagem apresentam-se de forma exten- 
siva porque no proj a estão contidas mui 
tas sub-rotinas gráficas, além da presença 
de sons, ruídos e trechos de músicas. 


Figura 1 


mostra a figura 1. 


Ir para o norte 
Ir para o sul 

Ir para o leste 

Ir para o oeste 


Ver o mapa (caso você o possua) 
Ver o tempo que resta 


Entrar na passagem 
Ver quantos diamantes restam 





dividida entre Zona Proibida 1 e Zona Proibida 
2. O jogador terá vários comandos, conforme 


O jogador precisa ter cuidado com os ci- 


a clones espaciais, com o tempo e nunca perder 


o JOGO 


todos os diamantes de Orion, pois eles são o 


combustível da nave; perdendo-os, acaba-se o 


O jogo consiste numa fuga, na qual o joga- 
dor é toa permeia espacial que precisa sair o 
o 


mais rápido possível (20 minutos é o tempo espaço sideral. 


máximo) de uma Zona Proibida (ZP), que é 











2POKEL6419,95 





FUGA COSHICA P/COMP. TRS-BO MOD.I e III 
DE JOSE "MARCELO DE FREITAS VILELA 
Rio de Janeiro / 1985 / TELEF.7(021)270 438% 


CLSIFORAN=S TO229:FORBB=1 TOZOFNEXTBB FREADCIREADL ESET(C,L)SNEXTAR 
18,11,18,10,17,11,17,10,16,11,16,10,15,11,15,10,14,11,14,10,13 
+11,13,10,12,11,12,10,11,11,11,10,10,11,10,12,9,13,9,14,9,15,8,16,8,17,8 
(18,8,19,9,20,9,12,14,13,14,14,14,15,14 











B DATA 20,14,20,15,20,16,20,17,21,18,22,18,23,18,24,18,25,18,26,17,26,16 
+26, 15,26, 14 

9 DATA 35,14,94,14,33,14,32,1 ,31,14,30,15,30,16,30,17,31,18,32,18,33,18 
+94,18,35,18,36,17,36,16,36,15,36,18,96,19,96,20,36,21,95,22,34,22,33,22 
+92,22,31,22,30,21 

1 


+15,40,16,40,17,41,18,42,18,43,1 






DATA 4º 14,43,14,42,4 
B,44,18,45, 147» ” 146,18, 
41 DATA 53,98,52,38,52,39,51,99,50,39,49,39,48,39,47,39,46,39,45,99,45,3 
B,44,38,44,37,43,97,44,36,43,96,44,35,43,95,44,34,43,34,43,33,44,33,43,9 
2,44,32,43,91,44,31,43,30,44,30,44,29,45,29,45,28,46,28,47,28,48,28,49,2 
8,50,28,51,28,52,28 

12 DATA 52,29,53,29,61,34,60,34,59,34,58,34,57,34,56,35,56,36,56,37,56,3 
8,57,99,58,39,59,99,60,39,61,99,62,38,62,37,62,96,62,95,60,33,61,32 
14 DATA 71 
6,71,37,71,38,70,39,69,394 
15 DATA 74,39,74,38,74,37,74 
7,78,38,78,39,79,34,80,34,81,34,82,95,82,96,82,37,82,38,82,39 
16 DATA 85,39,85,38,85,37,85,36,85,35,85,33,94,35,93,34,92,34,91,94,90,3 
4,89,34,88,35,88,36,88,37,88,38,89,39,90,39,91,39,92,39,93,39,94,38 

17 DATA 102,34,101,34,100,34,99,34,98,34,97,35,97,36,97,37,97,38,98,39,9 






































9.39, 39,101,99,102,99,103,38,103,37,103,36,103,95,103,99,104,39 
18 FORA=ITOZ9EFORBNA TI FREADCIPOKEL6277+A,CENEXTA 
19 DATA 68,101,0,74,11 +39,0,77,97,114,99,101,108,111,0,100,101, 






60,86, 105,108,101,108,97 
20 Z5=STRINGS(24, 32) VSVARPTRIZS) EL=PEEK (VAL) M=PEEK (V42) SEnL+2560M: IFE) 
92767 THEN E=E-655361FORI=ETOE+231READXIPOKEI, X:NEXTISIFPEEK(16396)=0THE 
NPOKE16526,LIPOKE 16527 MIELSE DEFUSRO=E 

21 DATA 205,127,10,62,1,14,0.69,47,230,3,211,255,13,40,4,16,247.24,243,3 
7,32,242,201 

22 FORASSTOBL READ CIXeUSR(C)SNEXTA 

25 DATA 18046, 18004, 10324,10340,10352,25663,18004,10334,10340,10352,1798 
3,10004,11568,11571,11568,12857,25642,18046,18004, 
a,25684,10934,1 «10352 

Z6 DATA 25663, 18004, 10334,10340, 10334, 11632,30804,10340,8243,824' 
259,8267, 8259, 8255, 8259,8267,11587, 10324, 12875,8243,8249,8255,179 
7,10324,10315,8243,8249,8255,8259,8267,6259,B255,8259,10315,11587 
276,8276,11583,8262,8271 

27 DATA B276, 8286, 10346, 10352, 10366, 10324,2644,8276, 8276, 10324,126 
CLSsPOKELS921, O:POKEL 492! OXEL6919, 
FORZ2=1 TO90G:NEXTZZ 

CLSIDIMA(S, 9,2) 

PRINTCHR$(23) 

PRINTO960,“0 Imperio Galactico foi atacado” 
GOSUB20000:PRINT“por uma civilizacao alienigena.” 
GOSUBZ0000:PRINT“E voce, um guerreiro e: 
combat 
jo com violen: 
nde * 
ugado para a ZONA “1GOSUB200001 

rdido e” :GOSUB20000: p 






























PRINT gravidade 
PRINT"PROIBIDA. Voce 
RINT"precisa sair rapidamente d 
197 GOSUB20000: PRINT" lugar demoniaco, inabitado e”:GOSUBZe000: 
PRINTÍvazio. ..ou m parece...” 
PRINT 








PRINT 
RANDOM 





32 























INPUTAS 
LS 





PRINTIPRINTAS 
FORZ2=1TOLZ00 
cosuBs8e 

cLs 





PRINT 
RINT 


PRINTTONDE PA: 


FORAB=1TOZODO 
NEXTAR 
Gorosese 

FORZi 
RINTAZ2,CHR$(191) 





640T0703:PRINTOZZ.CHRS(191) 1 INEXTZD 


470 RETURN 
seo * 

498 FORX=1TOS 
500 FORY=1TO8 
510 FORZ=1T02 


NEXTZ 
540 NEXTY 

550 NEXTX 

560 "CICLONES 
570 H=RND(3) 
580 FORA=LTOZ 
590 FORN=1TOM 
X=RND(B) 
Y=RND(B) 
AUX, YAD=B 
NEXTN 
NEXTA 
"CAMINHOS 
S=RND(4)+2 
FORA=ITOZ 
FORN=1TOS 
X=RND(B) 
Y=RND(B) 
AX ST Adas 
NEXTN 
NEXTA 
RETURN 
“PASSAGENS 
Li=Ls-4 
CLSTGOSUB44O 





IFL1=0THENS7O 





CB=CAsKa 


GOSUB ISO 
FORZ2=1T04 








jogo. Cada lugar da Zona Proibida é chamado 
quadrante, isto é, uma espécie de sala no 


Quando se acaba o jogo (tenha o jogador 
O=1000:Mi=11K 


RINTIPRINTEPRINTOVOCE PRECISA SAIR DA ZONA PROIBIDA” 
PRINT“EM MENOS DE 26 MINUTOS” 
PRINTIPRINTOVOCE CARREGA 1000 DIAMANTES DE ORION” 


PRINTCPARA O ABASTECIMENTO DA NAVE” 


tNEXTZZ 


RINT"VOCE CHEGOU NA . « « 
PRINT"ZONA PROIBIDA 27 


RINT"VOCE ENCONTRARA" VERMES,” 
RINT"LADROES, E DIAMANTES DE ORION . . . MAS CUIDADO” 


PRINT"CICLONES ESPACIAIS PODEM SER FATAIS . . .” 


4T067ASTEP64:PRINTOZZ, CHR$(191 ) F ENEXTZZIFORZ2=6ITO/OISTEP GALP 


F3NEXT. 


ACX, Yo ZI=RND(Z) 


RINTBO, “Voce entra na PASSAGEM”; 
PRINTa64,"A Estrela do Poder abre 0";:PRINTOS2E, 
BOSUBA4O:GOSUBBO0O 


MA=O:K=0:K4=RND(4)+4 


PRINTBL92,“Voce foi jogado para ... 
PRINTO2S6,“a ZONA PROIBIDA 174 


2NEXTZZ 





ganho ou não), o computador faz uma conta 
com o número de jogadas e os diamantes 
conseguidos, dando o seu escore. 

Quando o jogador estiver voando com sua 
nave na ZP, a tela do equipamento irá se 
subdividir em três partes: na parte de baixo, 
está o menu; no canto superior esquerdo, o 
computador de bordo; e no canto superior 
direito, o visor da nave. 

Durante a fuga cósmica, o jogador deve se 
preocupar em achar o Mapa e a Estrela do 
Poder, pois possibilitarão surpresas especiais . 

Agora, digite o programa com cuida- 
do e atenção; ao acabar, digite RUN e tecle 
ENTER que o computador dirá tudo. Boa 
Sorte! 





José Marcelo de Freitas Vilela tem 14 anos e 
cursa à oitava série no Colégio São Bento, no 
Rio de Janeiro. Possui um CP500 e aprendeu 
a programar em BASIC através de livros e re- 
vistas. 



















+ VOCÊ ESTA” A CAMINHO” 

































FORZ2=34TOSI:PRINTOZ?,CHR$C191)PINEXTZZNFORZIS 




































MICRO SISTEMAS, Janeiro/86 





B60 GOTOL076 

870 PRINT9136,".Voce encontrou...” 

880 PRINT9192,"... a sulda da ZONA PROIBIDA.”s 
900 PRINTBZS6, “Voce terminou com “103 

905 PRINTRI20,“Dlamantes de Orion.”; 

706 GOSUBIS 







sREM ESCORE 

940 R=INTECGGNCA-700061)/M1) 

950 IFPEEK( 16920) )=20THENR=DELSEGOTOP6O 

760 PRINT9704,70 escore do jogo foi 1 “sRy 
970 IFG(=0 OR PEEK(14920))=20 THEN4I00 

980 PRINTB384. “Voce precisou de “sMiy” Jogad: 
985 PRINTO448, “para sair da ZONA PROIBIDA 
790 PRINTOSS2, “conseguiu Diamantes de “CAI 
991 PRINTAS?6,“Vermes do Pavor.“3 

1000 RETURN 

too * 

1020 C=AND(B) 

1030 D=RND(B) 

1940 A(C.D,2)=1 

L 
KAsRNDCAD+4 


















e 
1089 CLS 

1090 ASA(C.D,LS) 

1100 6-0-1 

1116 ON A GOSUB 2220,2280,23 
1120 * 

1136 1FO(=0THENLBZO 

1146 PRINTOZ68,"E AGORA, “rASE” 9” 

1160 PRINTOZ9B, “(NJORTE (LIESTE (S)UL (OJESTESS 
1170 PRINTOBSL,“CEINTRAR (MAPA (RESTO (TIEMPO”S 
1471 XoUSR(DGNIGEAI) 

1190 Mi=HL+iSIFK=DANDHI )=140/LITHENAZIO 

1195 MiS=INKEYS 

1200 IFHIS="NºTHENI290 

4216 IFHIS="LTHENSIA 
1220 1FHLS=“S“THENSI9 
1230 1FH1$=“0"THENSASO 
1240 IFHIS="ECTHENTADO 
1250 IFHIS="NºTHENIGLO 
1260 IFHIS="RºTHENS670 
1270 IF M18="T“THENDS 
1275 IF PEEK(16920))m; 
1280 GOTOL195 

1296 "NORTE 

1300 1FA=7THENS7LO 
1910 IF(D-1)=0THENI9SO 





2340,2990,2700,2750,2800,3080 




















1336 GoTOLe7e 

1340 "LESTE 

1956 IFAS4THENS770 
IF(C+1)=9THENZOIO 
Cacos 

1380 GOTOLO7O 

1396 "SUL 

1400 IFA=7THENIZIO 
1410 IF(D+1)=PTHENDOSO 
1420 D=D+1 

1436 GoTOL070 

1448 "OESTE 

1456 IFASSTHENS770 
1460 IF(C-1)=0TMEN 
1470 Cec-s 

1486 GoTosoze 

1490 * 

O LFAC)PTHENISEO 

IFK=1THEN7SO 

5 CLS 

GOSUB440:GOSUB 10000 

PRINTO64, “Voce nao pode entrar”, 

1540 PRINT9L28,“pois nao esta” com a”4 

1541 PRINTO192, “Estrela do Poder”; 

1570 GOTOsIZO 

1580 CLSTGOSUB440:GOSUBLOSOOPRINTAGA, “Voce nao esta” na 
1690 GOTOSL20 
1610 CLS! "MAPA 
TFMA=4 THENZO! 
GOSUB440:GOSUB10500:PRINTE64, “Voce nao esta” com o mai 
1658 GOSUB4sO 

1660 GOTOLIZO 

1676 "DIAMANTES DE LAZAR 

1680 CLSEGOSUB 440: GOSUB 9! RINTO64, “Rest 
1690 PRINTOLZE, ntes de Orion”r 
GoroL12e 

"TURBILHAO LESTE-OESTE 






























lhe “165 











1730 CLSIGOSUBAAO: GOSUBS000:PRINTOGA, “Voce esta” num Turbilhao”s 
1731 PRINT9I2D,“leste-veste e so” pode ir”s 

1740 PRINTOL92, “para o Leste ou pi 
1750 * 


o Oeste.” 





soros120 
“TURBILHAO NORTE-SUL 





1780 
1790 CLSGOSUBA40 E GOSUB, 





PRINTA64, “Voce esta” num Turbilhao”s 
14791 PRINT9L28, “norte-sul e so" pode ir” 

1800 PRINT9L92,“para o Norte ou para o Sul.”s 

1810 G0TO1750 

1820 "SEM DIAMANTES 
1898 FORZ2=1 102000: NEXT 
1840 CLS:GOSUB440 E GOSUB 
1850 PRINT9O, “Voce perdeu todos os 
1851 PRINTO64, "Diamantes de Orion 
1860 PRINTOI28,"e foi incapaz de 
1870 PRINTBLS2, "ZONA PROIBIDA.”s 
1890 PRINT9320,“Melhor sorte da proxima vez.”r 
1895 GOSsUB4 
BosuB9Io 








eus" 
”ê 
dr da”s 

















1920 PRINTOBIA. “Quer tentar de novo 7; 
1930 PRINTOB97, “Digite “1º-: 
1931 PRINTODGO,” “1 

1940 INPUTAR 

175 IFARCILTHENS97O 

1760 CLSIPOKEL6921, O:POKELG9D 











* no Campo Magnetico”y 
PRINTO64, “Norte « nao pode ultrapassa-lo”r 

PRINTOL92,“Tente outra direcao.”y 

2020 goTost2e 


Li=s==— 











MICRO SISTEMAS, Janeiro/86 


ese 














3070 
aese 
3081 
3082 


NEXTZZ 


3083 
309% 

aro 
3120 
3130 
3140 












LS: GOSUB 440: GOSUB6S0O:PRINTDO, “Voce esta” no Campo Magnetico”; 
RINTR64, “Leste e nao pode ultrapa lo”; :GoTOZOLO 

CLS+GOSUB440:GOSUBSSO0:PRINTOO, “Voce esta” no Campo Magnetico”s 
PRINTA64,“Sul e nao pode ultrapas ” 1 EGOTOZO: 










CLS: GOSUB440:GOSUB 6º sta” no Campo Magnetico” 
PRINTO64,“Oeste e nao pode ultrapassa-lo”; :GOTOZOLO 

"MAPEANDO 

eLs 

GosuBase 


PRINTOO, “MAPA DA ZONA PROIBIDA “sLis 








PRINTOS2B, VERME DO PAVOR” 
PRINTOL92.70 = QUADRANTE VAZIO”; 
PRINTOZS6. UM LADRAO OU UM CICLONE”; 
PRINTAIZO PASSAGEM PARA FORA DA Z.P.”q 





PRINTR3B: 
PRINTR44S, “| 
PRINTOSIZ 
PRINTOL6S, “1 
FORQ=1T08 


TURBILHÃO NORTE-SUL”; 
TURBILHÃO LESTE-OESTE”; 
SUA LOCALIZAÇÃO NA Z.P.”y 





TFC=N AND D=G THEN PRINT“PI “ssGoTOZIMO 
SI=A(N,Q,L1) 

ON Si GOSUB 3120,3120,3140,3140,3160,3180,32 
NEXTN, 

PRINTOLGS+ 640,4 

NEXTA 

soToLtze 

"QUADRANTE VAZIO 

BOSUB 448: GOSUB 1 0504 

PRINTRO, “Voce e: m drante”s 
RINTO64,”. . . frio, escuro e vazio.“s 
RETURN 

"QUADRANTE VAZIO 
GOSUB 440: GOSUB1O500 
PRINTOO, "Você esta” num quadrante” sy 

PRINTO6A,”. . . umido, nebuloso e vazio.”; 

RETURN 

CLS1GOsUBA do 

MA=RND(4) 

ON M4 GOSUB 3250,3380,3550,3680 

RETURN 

CLSIGOSUB440:GOSUB7 OCO: PRINTOO, “Ha” um ladrao de Centauro.”s 
A(C,D,L1)=2 

FORZ2=1TOS0O:NEXTZ2 

BA=RND(350/L1) 





a220,3230 








YC=aTHENDSLO 

INT9128, "Ele o surpreende...”s 
PRINT9192,"E com destreza,”; 
PRINTO2S6,“rouba-lhe “3643” Diamantes.”s 
G=6-54 
'ROCURA DO MAPA 
IFMA=ITHEN RETURN 
MASRNDC4) 2 IFMA(=2THENMAS 
IFHA=1 THENZ570 
RETURN 











INT8320, “Voce vasculha o quadrante e”r 
FORZ2=1TOS06:NEXTZZ 

PRINTO384, “acha um recipientes 
PRINTO448,"com um mapa da ZONA PROIBIDA”; 
PRINTAS1Z, “feito por algum Robinson “s 
PRINTOS76, "Crusoe Espacial.”s 

















GosuBI0000 

RETURN 

PRINT9128, “Voce surpeende o ladrao. Na”r 
PRINTBL92 cair “5644” D 1 
PRINTOZS6 Voce os recolhe.”s1G=G+04 


IFMA=1I THENRE TURN 
MASRND(4) 2 IFMAC=2THENMA= 1 
IFMA=1 THENZS7O 

RETURN 


GOSUB4A40 :GOSUB 4000 
GOSUB4IS0:PRINT9128,7e entra num Turbilhao “ssPRINTALP?, “norte-sul” 


GosuBs330 

RETURN 

cis 
GOSUB440:GOsUBS000 


GOSUB4AISO:PRINTO126,"e entra num Turbilhao “rIPRINTOS92,“leste-vest 





GosuBa3ae 

RETURN 

"CICLONE 

BOSUB440:GOSUB7500 

PRINTSO, “Voce entrou num Ciclone“; IPRINTB64, “Espacial”; 
FORZ2=1TOS0O:NEXTZZ 

TD=RND(4) 

IFTD)=3THENDO9O 





PRINTBLS2. "Mas deu u 
PRINTO2S6, “sair dele 
RETURN 
IFLI=2THENI000 
Lieliotik=1 
PRINT9ÍZB, “Voce foi Jogado para“; tPRINTOL92,"ZONA PROIBIDA 2 
0=6-500: IFO(OTHENG=O 

FORZZ=1TOSOO:NEXTIZ 


Jeito para”; 











PRINT9256, “perdeu muitos D 
INTO384, “Restam-lhe “363º 
PRINTS448, “Mas voce ainda t 
GosuB4 0000 

RETURN 

PRINT9128, “Voce entrou DENTRO do Ciclone”; 

FORZZ=1 TOSCO INEXTIZ 

PRINT9192,"Mas teve sorte e sua nave”s 

PRINT3256, “nao foi atingida ser iamente”s 

FORZ2=1TOSOO:NEXTZ2 

PRINTR320, “Has na saída voce percebe “3 

Boros2se 

GOSUB440:PRINTOI6I, STRINGS(12,191); 

FORZZ=77T011B1SET(ZZ, 6) !NEXTZZIFORZZ=6TOZ6:SET(118,27):NEXTZZ 
FORZZ=1167077STEP-11SET(ZZ.26) INEXTZZIFORZZ=26TO6STEP-LISET(77,27): 











sum “rIPRINTOSIZ, “Estrela do Poder.”s 






















RINT9O, “Voce 
PRINTO64, “num 
RETURN 
PRINTTO “sy 
RETURN 
PRINTOU “9 


entrando”; 
m"7 





FUGA CÓSMICA 


3156 RETURN 
3160 PRINT"? 
31470 RETURN 
PRINT"NS “3 
RETURN 
PRINT'LO “4 
RETURN 
GoToasso 
PRINTPA “sy 
RETURN 





PRINTOL92,“que esta” com Fom 
GosuBasto 

PRINTS; 
GOsUR4Ad20 
RETURN 








que voce de um pouco de Diamantes”; 


PRINTBL92,"que nao 
GosuBaeL 
PRINTAI2 
GosuBa920 
RETURN 
Gosusaso 
H=110=P14=8 
B=41EsStR=14 
C=6:PR=O 
noTotete 


com fome”; 





ele pouco de Di 














PRINTOL92,"que nao esta” com fome”; 
sosusaeie 

PRINTOI2U 
GosuBas2o 
RETURN 





que ele de um pouco de Diamantes”; 


PRINT9L92, “que nao esta” com fom 
GosuBasLo 

PRINTOIZ 
BosuBas2o 
RETURN 








que ele de um pouco de Diamantes”; 





PRINTR256,"Voce nao podera passar ate'”s 
RETURN 


RETURN 
"ROTINA ALEATORIA 


RETURN 


BASRND(400/L1)+25 

B=g+64 

PRINTAIBA, “E voce ganhou “jG4y 
PRINT9448, “Diamantes de Orion.”s 
ALC,O,LL)=4 

CAnCA+4 FIFK=1THENRETURN 
IFCA=KATHENAL LO 

IFLI=1THEN4230 

RETURN 


G4=RND(350/L1) 
= -64 
PRINTRI84,“E v 
PRINTO44B, “DI mi 
RETURN 





e perdeu “164 








K=s 
PRINTAS76,"Voce achou a Estrela do Poder”: 
nosuBadeee 
RETURN 

4160 GOSUB440 EGOSUB SS: 
“pavor neste quadrante, ele com 
aszo * 

4186 PRINTOSZO 
as90 * 

4200 RETURN 
4216 GOSUB 
4226 GoTOS2 
4230 IFCA=CBTHEN4SLO 

4246 RETURN 

4250 6=6-5001 IFO(OTHENGS: 

4260 PRINTRIB4, “que perdeu muitos “3 
4270 PRINTO44B, “de seus Diamantes. R 
AZ60 PRINTASIZ, “lhe “364” Diamante 
4285 GOSUB. 
RETURN 

PRINTRIBA, “Voce recebeu Dinmant 
PRINTR448, “Vermes do Pavor . 
PRINTOS12,“jogadas.”s 
RETURN 

PRINTE256,“0s asteroides se fecha 
RETURN 

PRINTRO, “Voce atravessa u 








*PRINTRO, “Voce importunou um Verme do”rIPRINTO64, 








“Diamantes de Orion e diz...”s 





taram-", 
de Orion”; 














de “sCAs 
“amis 








atras”; IPRINTOI2O, “de voce”: 








“PRINTO64, “entre os asteroide 


RETURN 

AR=PBIBB=161EE=14 

FORJJ=1TOEE 

XXTARA JJ IJEYY=BBAJJESETAXX-L, PY DESETO, VV) 

YY=BB-JJISETEXX, YYIESETEXK-L VT) 

YY=BBLSETIXX, VYIISETAXX-L VV) 

XXSARISETIXK, YY)ESETOM-S VV) 

YY=BB+JJESETOM, PY) ESETEXX-L TT) 

YY=BB-JJESETCXX-A, YYDESETEXK,TY) 

XX=AR= JJ) JESET ONA, YY) SETUP) 

YY=BBISETIXX-L, PY) ESETOXX. VV) 

6100 YY=BB+JJISETCXX-S, VD ESETOXX, VT) 

6110 NEXTJS 

6120 RETURN 

6500 KKSSSTRINOS(28, 153) :FORZI=OTOBIPRINTAPS+64NZI,KKT. -NEXTZI 

6518 RETURN 

4500 PRINTOL6B,CHR$(171)4CHR$(172)+STRINGS(12, 128) +CHRS(168)+CHR$(174)+C 
HR$(129); 

6610 PRINTAZIZ,CHR$(130)+CHRS(139) +CHRS(164) +CHRS(144)+CHR$C160)+STRINOS 
(7,476) +CHR$(128) +CHR$(176)+CHRSC142)+CHR$(131)7 

4620 PRINTBZDO,CHR$(170) *CHRSCLIL)*CHR$(128)+STRINDS(4, 176) *CHRSC144)+CH 
R$(130)+CHR$C471)7 

6630 PRINT  D343,CHR$(149)+CHR$(128)+CHR$(125)+CHR$(141)*CHR$(136)+CHRS 
(141)4+CHR$(196) +CHR$(133)+CHR$(128) +CHRS(128)+CHR$C149)s 

6640 PRINTR4ZS, CHR$(154)4+CHR$(128)+CHR$(160)+STRINGS(7,176)+CHRS(128)+CH 
R$(138)+CHR$C144)4 

6650 PRINTDASY,CHR$(160)+CHR$(133)+CHR$(128)+CHRS(129)+CHRS(126)+CHRSCII 
0)+CHR$(128)+CHR$(128)+CHRS (130) +CHR$(128)+CHR$(128)+CHRS(129)+CHRSC128) 








*CHRS(165 
6660 PRINTRSS3.CHRS(150)+STRIN + 128) +CHR$(130)+CHR 
6670 PRINTR617 .CHR$(149)+STRINOS(13,128)+CHRS(149)5 
6680 RETURN 

PRINTRL7S, CHR$(137)+CHR$(176)+CHR$(176)+CHR$(152)+CHRS(129)5 
PRINTO175+63,CHR$(136)+CHR$(179)+CHRS(136)+CHRS(136)+CHR$(162)+CHRS 








148) 








c153)1 

7020 PRINTR304,CHR$(137)+CHRS(156)+CHR$(129)4 

7030 PRINTR365,CHRS( 168) +CHR$(174)+STRINGS(4, 131) +CHR$(171)+CHR$(172)+CH 
R$C148)5 

7040 PRINTRADO, CHRS(194)+CHRS(144)+CHR$C137)+CHRS(144)+CHRSC128)+CHRSCIS 
2)+CHR$(129)+CHRS(186)+CHRS(149)4 

7050 PRINTR493,CHR$(131)+CHR$(128)+CHR$(148)+CHRS(150)+CHRSC131)+CHRSCLO 
B)+CHR$(128)+CHR$(130) +CHRS(129)1 
7060 PRINTOSSE,CHRS(168)+CHRSC151)+ 
O)+CHRSC189)7 

7070 PRINTB621 ,CHR$(130)+CHR$(131)+CHR$(129)+STRINOS(3, 128) +CHR$(131)+CH 
R$(131)p 

7080 RETURN 

7500 PRINTRLGA,CHR$(172)+STRINGS(3, 140) +CHR$(156)+STRINGS(3, 140) +CHRSCIS 
6I+STRINGS(3, 140) +CHRS(156)+STRINOS(3, 140) +CHRS(156)+STRINOS(3,140)+CHRS 
(156)+CHRSC156)3 

7510 PRINTB229,CHR$(139)+CHR$(156)+CHR$ (164) +CHR$(178)+CHRSCLIL)+CHRSCIA 
0) +CHRS(164)+CHR$(178)+CHR$(131)+CHR$C140) +CHRS(164)+CHRS(178)+CHRSC13L) 
+CHR$(140)+CHR$(164)+CHR$(178)+CHRS (131) 4CHRSC140)+CHRS(164)+CHRS(134) 1 








CHR$(128)+CHR$(128)+CHRSC13 


7520 PRINTAZDA,CHR$(130) +CHR$(172)+CHR$C176)+CHR$C147)+CHR$(1I7)+CHR$CIA 
0) +CHR$(176)+CHR$(147)+CHRS(137)+CHR$C140)+CHR$(176)+CHR$C147)+CHRSC1I7) 
+CHR$(140)+CHR$(176)+CHR$(147)+CHR$(153)*CHR$(129)1 


7530 PRINTR360,CHR$(137)+CHR$(178)+CHR$C191)+CHR$(140)+CHRSC164)+CHRSCL7 
B)+CHR$(131)+CHR$(140)+CHR$(164)+CHR$(178)+CHR$ (191) 4CHRSC140)+CHRSCLGA) 
*CHR$C134)7 

7540 PRINTOAZS, CHR$(130)+CHR$(167)+CHR$C153)+CHR$(140)+CHR$(176)+CHRSCIA 
7)+CHR$(137)+CHR$(140) +CHR$(176)+CHR$(147)+CHRSC153)+CHRS(129)s 


7550 PRINTOAPL CHR$(139)+CHRSC156)+CHRS(144)+CHR$(178)+CHR$C1IL)+CHRSCIA 
0) +CHR$(164)+CHR$(134) 7 

7560 PRINTOSS6,CHR$(130)+CHR$(172)+CHR$(176)+CHRSC147)+CHRS(153)+CHR$CIZ 
9 

7570 PRINTB622,CHR$(137)+CHRS(134)7 

7586 RETURN 

B000 WUS=STRINGS(28,1491) 

8010 PRINTO99,UUS; PRINTO6L! MUS; ENN=ISIMN=611100=62:PP=638:00SUBBOLY 
8011 PRINT9L6I,UUS; SPRINTOSA?, UUS FSNN=371MH=613200=60:PP=5362GOSUBBOLY 
8612 PRINTB227,UWS?IPRINTO4GI, WUS 7 ENN=39AMHu615100=581PP=6342GOSUBBOLS 
8043 PRINTOZOL.MWSI PRINT 2419, MUS) ENNN4L EMH=617100=561PP=6321G0SUBHOL 
9 

8014 PRINTRISS,WWS: PRINTOISS, MUS; ENN=42EMN=619100=541PP=630200SUBBOL9 
8015 RETURN 

B019 FORZZ=1TOSO!NEXTZZ 

8620 FORZZ=NNTONHSTEP44:PRINTOZZ,CHR$C194) 1 INEXTZZIFORZZ=NN+1 TOMM+ISTEPS 
41PRINTOZZ, CHR$(194) 3 INEXTZZIFORZZ=NN+2TOMM+2STEP 64 PRINTOZZ, CHR$(194)5% 
NEXTZZIFORZZ=00TOPPSTEP 64 PRINTOZZ,CHR$C191)1 ENEXTZZIFORZZ=00-1TOPP-LSTE 
POAIPRINT DIZ, CHR$(194)7 
NEXTZZIFORZZ=00-2T0PP-2STEP 64 !PRINTOZZ, CHRS(191)FENEXTZZ 
FORZZ=1TOSO!NEXTZZIRETURN 

PRINTBL03, “DIAMANTE DE ORION”1 

PRINT9237,CHR$(160)+STRINOS(5,176)5 

PRINTOZ9E, CHR$( 176) +CHR$C140)+CHRS(131)+CHRSC129) +CHR$C176)+CHRSCIA 
OIACHRSCL40)+CHRS(164)+CHR$(144)4CHRSCIIL)ACHRS (137) +CHRSCIGA)+CHRSCI44) 

















JO PRINTO361,CHR$(130)+CHR$(172)+CHR$C164) +CHRS(176)+CHRSC146)+CHRSCLA 
0) +CHRS(140)+CHR$(140)+CHR$(140)+CHRS(134)4CHR$C(176)+CHR$(176)+CHR$C172) 
*CHR$(134)1 

9840 PRINTO427,CHR$(137)+CHRS(144)+CHR$( 138) +CHRS(147)+CHR$(131)+CHRSCII 
1)+CHR$(131)+CHR$(155)+CHRS (128) +CHRS(152)+CHRS(129)7 

9050 PRINTO492,CHR$(130)+CHRS(164)+CHR$(130) +CHRS (164) +CHR$(160)+CHRSCII 
4)*CHR$(160) +CHR$(134) 7 

9060 PRINTOSSO,CHR$(137)+CHR$(144)+CHRS(129)+CHRS(152)+CHRS(129) 1 


9070 PRINTB623,CHRS(130)+CHR$(134) 4 

7080 RETURN 

O PRINTOL77,CHRSC160)+CHR$(144)4 

10010 PRINTAZAS,CHR$(170)+CHRSC149) 
PRINTO304,CHR$(184)+CHR$ (190) +CHRSC 189) +CHRSC1BO) 1 

10030 PRINTRI62,CHR$(160)+STRINGS(3,176)+CHRSC1B4)+CHR$C151)SCHR$(163)+C 
HR$ (155) +CHR$C147)+CHR$(147)+CHR$C171)4CHR$CLBO)+CHR$(176)+CHR$C176)+CHR 
S(176)+CHR$(144)7 

10040 PRINTO426,CHR$(130)+STRINGS(3,131)+CHR$(139)+CHR$C161)+CHR$(178)+C 
HR$(185)+CHR$(182)+CHR$(177)+CHR$(186)+CHRS(135)+CHRS(131)+CHR$(134)+CHR 
S(191)+CHR$C129)5 

10050 PRINTOAPS, CHR$(139)+CHR$(175)+CHRS(159)+CHRSC195)1 

10040 PRINTOSGL,CHR$(170)+CHRS(149)1 

10070 PRINTO625,CHR$(130)+CHR$C129)1 

10080 PRINTRIOS, “ESTRELA DO PODER” 

10098 RETURN 

10500 DO=RND(10):XX=RND(10) !UVSRNDCIZ) 

10510 PRINTOSL71+DD,CHR$(132)71PRINTOZIGAXX, CHRS(129) 5 TPRINTAISS+UV, CHRS( 
130) 1 :PRINTOSS9+XX, CHR$(132)7 2 PRINTO6S2+D0,CHR$(132) 4 2PRINTOAZO+DD,CHRSC 






RETURN 

FORSS=1 TOS90!NEXTSS!RETURN 

CLS:GOSUB440:GOSUB 10500 

HHSPEEK (16921 ) IMM=PEEK (16920) 1SS=PEEK (16919) 
PRINTOS28,“Restam-lhe “sMHjU2"119-MM5CEC959-8S9 
MicMi-t 

Boros130 

CLS" GOSUB440:GOSUB 1050 
PRINTO64,"0 seu tempo terminou”; 

BoroLase 

J=USR (25684) 2 J=USR (25684)! J=USR (25684)! J=USR( 106) 

J=USR (25694) 1 J=USR (25694) 1! J=USR (25694) 1 J=USR (112) 

RETURN 

35000 J=USR (12900): J=USR (12894) 1 J=USR (15444)! J=USR (30783) J=USR(129L2)ES 
=USR (12900) 1 J=USR (25694) 3 J=USR (12912) 1 J=UUSR (12900) 1 JmUSR (15454) E J=USR (IO 
777)* J=USR (12875)! J=USR(12867) 

35005 J=USR(17983) 1 J=USR (17977)! J=USR (25651) 

35010 J=USR (12900) 1 J=USR (12894) 1 J=USR (15444) 1 J=USR (30783) 1 J=USR(17977)1 
=USR(17971)1 J=USR (30768) 1 J=USR (12851)! J=USR (12057) 1 J=USR (12851) 5 J=USRCIZ 
857) 1 J=USR (12851): J=USR (14137) 2 J=USR(6I) 

35826 RETURN 

20000 J=USR(20404) 1 J=USR (30814) 1 J=USR (20580) 1 JTUSR(30814)1 J=USR (20555) 
=USR (20804) 1 J=USR (20574) 1 J=USR (30804) ! J=USR (12875)? J=USR (12884) 1 J=USR (30 
814) 1 J=USR(30795) 3 J=USR (20543) E J=USR (30777) J=USR (20537): J=USR (30783): 
USR (20555) ! J=USR (30795) 

40010 J=USR (20574): J=USR (30804) 1 J=USR (20574): J=USR (30804) 1 J=USR(12875)2J 
=USR (12884) 3 J=USR (30814)! J=USR (20592) 3 J=USR (30832) 3 J=USR (20606) E J=USR(DA 
, 

46020 RETURN 
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SUPRIMENTOS PARA CPD FILCRES: 
SOLUÇÕES NA MEDIDA EXATA DE SUAS NECESSIDADES. 





A Filcres tem sempre em estoque e para pronta entrega tudo o que 
você precisa para o seu CPD: fitas impressoras, formulários, 
diskettes, e mais uma infinidade de outros acessórios. 

E conta ainda com uma equipe de profissionais altamente 
qualificados, prontos a lhe prestar o melhor atendimento, 

Tudo isso com a qualidade que v. exige e um preço sempre 
compatível com seu orçamento. 

E só telefonar e esquecer seu problema. 

A Filcres leva o suprimento que falta até você. de 


É 


AJUDANDO A DESENVOLVER TECNOLOGIA 


Rua Aurora, 165 — SP — Tel.: PBX (011) 223-7388 — Telex (011) 31298 Direto — SP — 223-1446/ 
222-3458/220-9113/220-7954 Direto outros Estados: 222-5430/221-0326/223-7649/222-0284 


apple apple apple appl 











Órbita 





Mario Folli 


Escrito para microcomputadores da 
linha Apple, Órbita é um jogo em que 
você deverá rastear e destruir os satélites 
espiões inimigos que orbitam uma nova 
estrela conquistada pelo homem do sé- 
culo XXI. 

Você possui quatro naves radares, 

ue posicionam a mira sobre o alvo, a 
im de dispararem seus raios destruido- 


res. 


Não há limite de tiro, podendo-se 


disparar diversas vezes sobre o mesmo 
satélite, mas este não é um bom procedi- 
mento, pois um ponto será decrescido 
do seu placar a cada disparo. 

A cada satélite atingido, você recebe- 
rá um bônus de dez pontos, porém per- 
derá três, caso o satélite escape de sua 
perseguição. 

O jogo se encerra quando vinte satéli- 
tes conseguirem furar o seu esquema de 


defesa. 


O PROGRAMA 


A velocidade de processamento é ra- 
zoável, se considerarmos que se trata de 
um jogo com movimentação de figuras e 
escrito em BASIC. No entanto, será par- 
compilá-lo 


ticularmente 























s. 
70 


se 


sa 


84 


B6 


ve 


92 


94 


96 


interessante 


REM APPLE II * ORBITA » OUT/ 
Bs » MARIO FOLLI w 
HGR : TEXT * HOME : INVERSE 
PRINT + PRINT SPC( 14)9“0 R 
BI TA”; SPC( 15): NORMAL 
PRINT 2 PRINT “SEU OBJETIVO N 
ESTE JOGO, E” A DESTRUICAODE 
SATELITES ESPIOES QUE ORBIT 
AM UMA NO-VA ESTRELA CONQUIS 
TADA PELO HOMEM.” 
PRINT “PARA CUMPRIR ESTA MISS 
AO,POSICIONE A MI-RA E DISPA 
RE RAIOS CONTRA OS ESTRANHOS 


PRINT “O JOGO TERMINA QUANDO 
20 SATELITES ESCA-PAREM DE S 
UA PERSEGUICAO.”: GOSUB 1000 


VTAB 42: HTAB 14: INVERSE : PRINT 
SPC( 11)5"TECLAS UTILIZADAS 

“p SPC( 12): NORMAL E PRINT 
SPC( 40) 

PRINT “AICIMA ZIBAIXO (-1ES 
0. -)IDIR. BESTIRO”; SPC( 40 
)y* INVERSE 

PRINT SPC( 141);“P ONTUA 
CA 0“; SPC( 12): NORMAL 

PRINT : PRINT SPC( 3)"SATELI 
TE ATINGIDO. «+10 PONTOS” 





PRINT SPC( 3)“SATELITE ESCAP 
Accco. 0. .—03 PONTOS” 

PRINT SPC( 3)“TIRO DISPARADO 
ccocsecoe-0i PONTOS” 





quando você já estiver craque e desejar 
a lhe sejam exigidas ações mais rápi- 

as, aliadas a uma boa dose de reflexos 
e coordenação de teclas. 

Na compilação, é recomendável que 
se altere o loop vazio FOR/NEXT da li- 
nha 2500, de 30 para 40 vezes, para que 
as velocidades dos satélites não sofram 
variações quando sua mira estiver parada 
na tela. 


PARTES DO PROGRAMA 


50-98 : Instruções do jogo 

210-300 : Definição das velocidades 
dos satélites, posição on- 
de surgirão no vídeo e os 
tipos de satélites (total 
de seis). 

350-380 : Finalização de uma par- 
tida 

400-440 : Rotina que altera a estre- 
la no centro do vídeo 

500-650 : Movimentação dos satéli- 
tes na horizontal 

700-850 : Movimentação dos satéli- 
tes na vertical 

1000-1160 : Formatação das figuras 


utilizadas, a partir do en- 
dereço 24576 (decimal) 


= início da página 2 de 
alta resolução 


1500-1580 : Rotina que desenha a te- 
la de jogo 

2000-2500 : Rotina de posicionamen- 
to da mira 


VARIÁVEIS UTILIZADAS 


V% : Velocidade das naves satélites 

L% : Lado da tela em que os satéli- 
tes surgirão 

N% Tipo de nave satélite que irá 
surgir 

S% Contador de naves satélites 

P% : Código das teclas pressionadas 

PT% : Pontos marcados 

RE% : Placar recorde 

NL% : Naves satélites não atingidas 

XI% : Posição horizontal inicial 

XF% : Posição horizontal final 

YI% : Posição vertical inicial 

YF% : Posição vertical final 


Mário Folli é Engenheiro Civil, formado 
pela Escola de Engenharia Mauá. Atualmente, 
trabalha como Analista da Área de Repasses 
do Banco Itaú, onde desenvolve sistemas em 
microcomputadores Itautec. Ele também é 
Instrutor de linguagem BASIC, na S.0.S. Com- 
putadores, e usuário de um Apple Il. 





98 GOSUB 1500: INVERSE : PRINT 1 
PRINT “” PRESSIONE QUALQUER 
TECLA PARA O INICIO “;: VTAB 
2: HTAB 20: GET AS: NORMAL + 


HOME 
100 POKE - 16304,0: POKE - 142 
97,0: POKE - 16300,0: REM 


RECUPERA PAG.1 ALTA RES. 

200 VUTAB 22: HTAB St PRINT “PONT 
OS:"sPTX;” “2 HTAB 30: PRINT 
“MORBITA”: HTAB 5: PRINT “RE 
CORD:“;REX:: HTAB 30: PRINT 
“NAVES: ";NLZ3: GOSUB 400 

210 VX = RND (1) » 6: LF VX< 2 THEN 
210 

220 LX = 
220 

230 NX = 
230 

240 SX = SX + 1:VX = VX+(S%)A4 
5) + (5% > 30) 

250 IF NLX = 20 THEN 35 

300 ON LX GOTO 500,500,700,700 

350 FLASH 4 VTAB 21: HTAB St PRINT 
” FIM DE JOGO * OUTRA VEZ $5 
/N)9"52 GET AS: IF AS = “N” THEN 

TEXT : HOME 3 NORMAL 3 END 


RND (1) * 5: IF LX = O THEN 


RND (1) » 72 IF NX = O THEN 





360 IF AS < > “S” THEN PRINT 
(7): GOTO 350 

370 IF PTX > REX THEN REX = PTX 

380 NLX = O:PTX = O: HOME : NORMAL 

: GOTO 200 

REM MODIFICA A ESTRELA 

FOR I = 41 TO 3:H% = RND (1) 


CHRS 





4 








“20 


“30 


aso 


seo 
sie 


s2e 
530 


sa. 
sse 


soe 
600 


se 


620 


630 


650 PTX = PTX + 107 FOR I = 1 TO 


» 735% = RND (4) w 453 IF 
SX = O THEN SX = 15 
HCOLOR= HX: SCALE= SX: FOR J 
= 0 TO 64 STEP 4º ROT= J: DRAW 
80: NEXT 
* INT ( RND (1) « 
OKE 1,5 + INT € RND 
(1) e 30): CALL 7714: NEXT 
SCALE= 1: HCOLOR= 3: ROT= 0: 
RETURN 
REM ESQUERDA (--) DIREITA 
YNZX = RND (1) » 1407 IF YNX« 
21 THEN 510 
XIX = SO:xFx = 236 
IF LX = 2 THEN VX = 
X = 230:XFX = 50 
FOR M = XIX TO XFX STEP VZ 
XORAW NX AT M,YNXIPX = PEEK 
( — 16384)! IF PX = 160 THEN 
610 
GOSUB 2100 
XDRAM NX AT M,YNXE NEXT ENLZ 
= NLX + 1º:PTX = PTX - 3: GOTO 
200 
POKE 0,200: POKE 1,8: CALL 7 
71º SCALE= 3: XDRAW 1 AT XX, 
YX: POKE 0,100: POKE 1,8: CALL 
77142 XDRAW 1 AT XX, YXE SCALE= 
12PTX = PTX - 4 
IF M)> XX —SANDM<XX+S 
AND YNX > YX — 5 AND YNX « 
YX + 5 THEN 650 
POKE - 16368,0: GOTO 600 








- VZIXI 
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7 
710 


720 
730 


740 
750 





Bio 


820 


830 
ese 















om onmeLo 


023 mIMUSCULAS 


031 suciDto 
032 ei tm 





033 miomr 
034 muo-ar 


034 amam-paix 
637 space 008 















o DATA 


1020 DATA 10 


1040 DATA 33,36, 


CIDADE: 
Para tal estou enviando um cheque nominal à Ciência Moderna de Computação Ltda. endereçado à ATI, Av. Presidente Wilson, 165 
Grupo 1210 — Centro, CEP 20.030 — Rio de Janeiro-RJ. Despesas de Correio inclusa. 


5: SCALE= I: XDRAW NX AT XX, 
YX: POKE 0,1 * 107: POKE 1,51 
CALL 771: XDRAW NX AT XX,YX 
: NEXT : SCALE= 1: POKE — 1 
6368,0: XDRAW NX AT M, YNX: GOTO 
200 
REM CIMA/BAIXO BAIXO/CIMA - 
XNX = RND (1) “ 2307 IF XNX « 
St THEN 710 
YIX = 20:YFX = 140 
IF LX = 3 THEN VZ = 
X = 140:YFX = 20 
FOR M = YIX TO YFX STEP VX 
XDRAW NX AT XNX,MIPX = PEEK 

( — 16384): IF PX = 160 THEN 
Bio 

Gosus 2100 

XDRAW NX AT XNX,ME NEXT INLX 

= NLX + 12:PTZX = PTX - 3º GOTO 
20. 

POKE 0,200: POKE 1,8: CALL 7 
71: SCALE= 3: XDRAW 1 AT XX, 
YX: POKE 0,100: POKE 1,8: CALL 
774% XDRAW 4 AT XX,YXI SCALE= 
APTX = PTX —- 4 
IFM>YX-SANDM(YX+S 
AND XNX > XX - 5 AND XNX « 


- VXEYI 





PTX = PTX + 107 FOR I = 4 TO 
5: SCALE= 1: XDRAW NX AT XX, 
YX: POKE 0,1 “ 10: POKE 1,51 
CALL 7714: XDRAW NX AT XX,YX 
à NEXT 1 SCALE= 4: POKE -— 1 
6368,0: XDRAW NX AT XNX,ME GOTO 
200 


e REM FORMATACAO DAS FIGURAS 


173,48,192,136,208,4, 
198,1,240,8,202,208,246,166, 
0,76,3,3,96 
0,22,0,44,0,74,0,1 
06,0,136,0,172,0,203,0,209,0 
,230,0,251,0 





1030 DATA 9,45,61,63,60,60,36,5 


2,54,55,55,63,47,45, 
+38,36,37,37 





146,54 








144,53,55,54, 


CIÊNCIA MODERNA DE COMPUTAÇÃO LTDA. 


Av. Rio Branco, 156 - Sub-Solo - Loja 127 — CEP 20.043 - Centro - RJ 
Tels.: (021) 262-5723 ou 240-9327 





rDESTUUA OS MISSEIS MUCLEANES 
TEMP AMETADTO WU ATACAM A TE 











BESTEÍSSS SS E SE SSSESSES E SSSSESSEEES 
$3S823838 88 E E8 SESSESES E SESESSEEEES 





1060 


1070 


1080 


1090 
1100 


1110 


1120 


1130 
1140 


1156 


1160 
1500 
1510 


1520 
1530 


1540 


63,63,55,39,44,46,45,54,54,6 
2,46,37,39,36,45,45,37,53,62 

160,63,4, 

DATA 42,53,54,45,61,63,36, 
36,36,36,45,61,63,54,62,63,3 
9,36,63,47,45,54,54,54,54,63 
147,45,36,44,5 
DATA 36,36,45,640,63,55,45, 
54,54,55,55,63,36,55,54,46,3 
6,45,44,44,53,53,45,36,53,54 
+62,36,7,0 

DATA 45,45,36,53,54,62,36, 
63,63,36,36,63,44,45,53,63,5 
4,54,63,63,54,39,36,44,54,45 
145,54,54,63,46,45,37,63,4,0 














DATA 45,45,53,54,39,36,63, 
63,63,63,39,36,53,54,45,45,3 
6,36,44,45,62,63,54,54,54,54 
162,63,44,45,0 

DATA 33,63,54,45,4,0 

DATA 38,45,53,9,52,27,36,3 
9,39,39,52,62,62,62,54,27,52 
+9,44,45,0 
DATA 52,63,39,27,38,9,54,5 
3,53,53,38,44,44,44,36,9,38, 
27,62,63,0 
DATA 52,38,47,61,13,9,36,3 
6,63,63,63,63,54,54,54,54,45 
145,45,45,36,36,0 
FOR 1 = 771 TO 789: READ AX 
1 POKE I,AX: NEXT + PRINT 
PX = 16384: FOR I = 4 TO 274 
3 READ AX! POKE PX,AXIPX = P 
X + 427 PRINTS.” NEXT 
POKE 232,0: POKE 233,64: REM 
ENDERECO DAS SHAPE TABLES 

16384/256=64 

RETURN 
REM DESENHA TELA INICIAL 
HCOLOR= 3: HPLOT 30,0 TO 25 
0,0 TO 250,159 TO 30,159 TO 
3% TO 45,15 TO 235,15 TO 2 
35,145 TO 45,145 TO 45,15 
FOR I = 1 TO 100 
XX = RND (1) « 235: IF xXx « 
45 THEN 1530 
YX = RND (1) q 4451 IF yx « 


























































15 THEN 1540 

HPLOT XX,YX: NEXT : ROT= 01 
SCALE= 1 

HPLOT 250,0 TO 235,15: HPLOT 
250,160 TO 235,145: HPLOT 30 
1160 TO 45,145: HCOLOR= 6 

FOR Y = 45 TO 145: HPLOT 1, 

Y TO 21,Y: HPLOT 259,Y TO 27 
PY: NEXT XX = 140:YX = BO 
XDRAW & AT XX,155: XDRAM 9 AT 
X%,5: XDRAW 10 AT XX,YX? ROT= 
16: XDRAW B AT 35,YX: XDRAW 

9? AT 245,YX: ROT= OINLX = 04 
PTX = 0:NX = O: RETURN 

REM MOVIMENTOS DA MIRA 

IF PX = 136 AND XX > SO THEN 
XDRAW 9 AT XX,5: XDRAW B AT 
X%,155: XDRAW 10 AT XX, YXEX% 

= XX - St XDRAM 9 AT XX,5º XDRAW 
B AT XX,155: XDRAW 10 AT XX, 
YX* RETURN 

IF PX = 149 AND XX «< 230 THEN 
XDRAW 9 AT XX,5: XDRAW B AT 
X%,155: XDRAW 10 AT XX,YXIXX 

= XX + 5º XDRAW 9 AT XX,51 XDRAW 
BAT XX,155: XDRAW 10 AT XX, 
YX: RETURN 

IF PX = 4193 AND YX > 20 THEN 
ROT= 16: XDRAW O AT 35,YX: XDRAW 
PAT 245,YX: ROT= O! XDRAU 1 
CAT XX. YXIYX = YX —- SE ROT= 
16: XORAW B AT 35,Y%X: XORAW 
PAT 245,YX: ROT= O: XDRAW 1 
CAT XX,YX: RETURN 

IF PX = 218 AND YX < 140 THEN 
ROT= 167 XDRAW 8 AT 35,YX: XDRAW 
PAT 245,YX: ROT= O: XDRAW 1 
CAT XX, YXIYX = YX + St ROT= 
16: XDRAW 8 AT 35,YX: XDRAW 
9 AT 245,YX: ROT= O: XDRAW 1 
0 AT XX,YX: RETURN 

FOR F = 1 TO 30: NEXT : RETURN 





2200 


2300 


240. 


2500 








PROGRAMA PARA TK 2000 





Desejo receber os seguintes programas pelo(s) qual(is) pagarei a quantia de Cr$ 
N9s PROGRAMAS: 


NOME: 
END.: 













TA ETIQUETAS PARA CONNESPONDENC LA! 








CANQUIVE E CADASTRE SUA CLI- 





0% CONTROLE BE ESTOGUE “CONTROLE SEU ESTOQUE COM 
O seu 20001 

oro contas à MECEMER "CONTRA O seu CALBITO! 

DECEMES (CONTROLE O SEU CREDITO! 














UF.: 





CEP: 








msx msx msx m 











miar 


Ni af 





Batalha Naval 





Renato da Silva Oliveira e Pierluigi Piazzi 


O programa que apresentamos a se- 
guir, ilustra como uma idéia simples po- 
de dar origem a um jogo de razoável 
complexidade. Uma das coisas mais tri- 
viais que se pode pensar, ao fazer um jo- 
go, é num atirador e num alvo. Obvia- 
mente, nesses casos, o usuário costuma 
fazer o papel do atirador. Em nosso 
exemplo, usamos um navio lançando 
cargas em profundidade num submarino. 

Um pouco mais difícil é engendrar 
uma forma de fazer com que O usuário 
tenha que pensar antes de dar seu tiro. 
Em nosso jogo é praticamente inevitável 
o uso do fosfato cerebral! O usuário é 
obrigado a pensar para obter êxito (e is- 
so, para muitos, dói!). 

A idéia por trás de-tudo é bastante 
simples. Para atingir o submarino, o usu- 
ário deve dar a posição em que a carga 
será lançada e isso é feito através da in- 
trodução de três números: um que indi- 
que a posição na direção Norte-Sul, ou- 
tro que indique a posição na direção 
Leste-Oeste e um terceiro indicando a 
profundidade em que a carga deverá ex- 
plodir. 

O submarino é colocado, ao acaso, 
dentro de uma região cúbica de 8 Km na 
direção Norte-Sul, 8 Km na direção Les- 
te-Oeste e 4 Km de profundidade. Nessa 
mesma região, está colocado também o 
navio lançador de cargas. Observe a figu- 
ral. 

Note que o navio sempre fica no vér- 
tice do paralelepípedo formado pela re- 
gião de 8x8x4 quilômetros cúbicos e 
que o submarino é sempre colocado nu- 
ma posição de coordenadas inteiras. Por 
exemplo, ele nunca vai estar em uma 
profundidade de 2,5 Km (estará a 2 ou 
3 Km). 

Ao ser executado, o programa pede a 
introdução dos três números indicadores 
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Figura 2 


da posição. Inicialmente, a distância ao 
longo da direção Norte-Sul (N/S), de- 
pois a distância ao longo da direção Les- 
te-Oeste (L/O) e, finalmente, a profun- 
didade (P). O primeiro tiro deve ser da- 
do ao acaso. Lembre-se que os valores 
para N/S e L/O devem estar entre De 8, 
e os valores para P devem estar entre O e 
4. Caso esses limites sejam desrespeita- 
dos, o tiro será perdido. 

Como resposta a cada tiro, o progra- 
ma dá uma dica ao usuário: a distância a 
que a carga explodiu do submarino. Essa 





distância é calculada através do “Teore- 
ma de Pitágoras” aplicado a um espaço 
tridimensional (Teorema de “Tritágo- 
ras”). A ilustração do teorema pode ser 
vista na figura 2. 

É a partir dessa informação que os ti- 
ros subsequentes devem ser dados. Por 
exemplo, imagine que seu primeiro tiro 
tenha sido [4] [MM] 3] equea dis 
tância obtida como dica tenha sido 4. 
Isso significa que a distância em que a 
carga lançada explodiu do submarino foi 
de 4 Km. 

O segundo lançamento já deve ser fei- 
to no sentido de verificar a posição do 
submarino numa dada direção. Conside- 
rando ainda a situação exemplificada an- 
teriormente, suponha que queremos ve- 
rificar profundidade. Basta manter os 
número N/S e L/O e alterar — para mais 
ou menos — o número P. Por exem- 
plo, imagine que fizemos o lançamen- 
to [ e que recebemos a di- 
ca 5.196. Isso significa que nos afasta- 
mos da posição procurada e é conveni- 
ente tentarmos outro sentido. 

Se tentarmos o lançamento [4] [1] [4] 
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e obtivermos o mesmo número como 
dica (5.196), podemos então concluir 
que a profundidade do submarino é de 3 
Km. Agora, devemos fazer o mesmo 
com os números N/S e L/O. 

Depois de algumas partidas mal suce- 
didas, você achará o caminho certo para 
destruir o submarino. Eventualmente, 
após adquirir bastante prática, o leitor 
pode tentar alterar dois ou três números 
de uma só vez. 

Vamos, agora, completar o programa 
de modo a sofisticá-lo um pouco. Antes, 
porém, analisemos suas partes princi- 
pais: 


Inicialização — Esta parte faz a apre- 
sentação na tela, recebe o nome de joga- 
dor através do teclado e sorteia a posi- 
ção do submarino na região delimitada 
para o jogo. O sorteio é realizado através 
da função RND. Como a posição do sub- 
marino é dada através de três números, 
basta fazer um sorteio para cada um de- 
les (veja us linhas 80 a 100). Se você qui- 
ser alterar a região onde o submarino 
pode estar, basta mudar os números 9 e 
S nas linhas 80, 90 e 100. 


Lançamentos — Esta parte recebe os 
dez lançamentos do jogador. Cada lança- 
mento necessita da introdução de três 





10 COLOR 4,71SCREEN GrMIDTH 38 
20 PRINT"BATALHA NAVAL TRI-DIMENSIONAL” 
RINTIPRINT DIGITE SEU NOME ALMIRANT 







NPUT N$ 


NTCRNDC-TIMEJ 99) 

NTCRNDC-TIME) 49) 

LET PO=INT(RND(-TIME)NS) 

110 LOCATE 2, 1:PRINTTALMIRANTES” NS 

120 LOCATE 2,42:PRINT"TIRO Lzo N/5 
P — DISTANCIA” 

130 FOR T=i TO 10 

140 LOCATE 3, T+S2PRINT T 

150 LOCATE 11,745 

160 LINE INPUT LOS 

170 LOCATE 47,7+5 

180 LINE INPUT NS$ 

190 LOCATE 22,7+5 

200 LINE INPUT P$ 

210 LET DLO=VAL(LOS)-LOO 

220 LET DNS=VAL(NS$)-NSO 

230 LET DP=VAL(P$)-PO 

240 LET D=INT(.5+1000"5GR(DLONDLO+DNSAD 

NS+DPNDP))/1000 

250 LOCATE 26,7+5 

260 IF VAL(P$)D4 OR VALCPSICO OR VALCNS 

5))B OR VALENSS)CO OR VAL(LOS))B OR VAL 

(LOS)X0 THEN PRINT"perdido!”:GOTO 300 

280 PRINT D 

290 IF D=0 THEN GOTO 380 

300 NEXT T 

310 FOR G=1 TO 10 

320 FOR F=2 TO 15ºCOLORS,FICLSENEXTE 

346 NEXT 6 

356 LOCATE 2,20 

360 PRINTIPRINTIPRINTOSEU NAVIO ACABA D 

E SER ATINGIDO POR UM TORPEDO.” 

370 GOTO 450 

380 FOR G=1 TO 16 

390 FOR FeZ TO 15:COLOR1,FICLSINEXTF 

400 NEXT G 

410 LOCATE 2,20 

420 PRINT” PARABENS VOCE FOI PROMOVIDO 

A” 

430 PRINT” 

«PRINT 

440 PRINT” VOCE FEZ “s14-7;” PONTOS” 

450 INPUT “Digite RETURN para nova bata 


- ALMIRANTE DE ESQUADRA.” 


lha. “sas 








460 RUN 





Batalha Naval 
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SOM DE FUNDO, 


30 INTERVAL ON 
40 ON INTERVAL=150 GOSUB 470 


470 
480 5 
490 
500 
s10 


DE EXPLOSÃO DO NAVIO, 


330 GOSUB 540 


Figura 3 


números. Após receber cada um deles 
através do teclado, o programa calcula a 
distância entre a posição da explosão e a 
posição do submarino (através do Teore- 
ma de “Tritágoras”. Você lembra!?). Fi- 
nalmente, os dados introduzidos e a dis- 
tância calculada são impressos na tela no 
formato de uma tabela. 


Finalização — Esta parte simplesmen- 
te encerra o jogo, informando a vitória 
ou derrota do jogador. 

Agora sim, vamos incrementar o pro- 
grama! Uma das grandes vantagens dos 
micros da linha MSX sobre os outros, es- 
tá na facilidade com que podemos pro- 
duzir sons através de seu BASIC. Acres- 
cente ao programa as linhas que cons- 
tam na figura 3. Todas elas tornam o 
programa um pouco mais atrativo. Ago- 
ra, você pode começar a fazer suas pró- 
prias modificações acrescentando outros 
sons ou fazendo com que O navio e o 
submarino sejam desenhados na tela. 

Uma mudança mais estrutural seria 
fazer com que, após cada tiro, o subma- 
rino se deslocasse. Isso tornaria o jogo 
muito mais difícil. 

O programa deve ser digitado, man- 
tendo-se a numeração das linhas da lis- 
tagem. Posteriormente, você deverá 
completá-lo com as linhas que estão fal- 
tando. 


] 
ss 


Pierluigi Piazzi é formado em Química e 
Física pela USP. Foi professor do curso Angelo 
Vestibulares e já editou a revista Micro-hobby. 
É autor de vários livros e atualmente dirige a 
Aleph Publicações, responsável por muitos su- 
cessos na área editorial, dada a sua orientação 
didática. 














sistemas de banco de dados 


CURSOS 
DISPONÍVEIS 


MATERIAIS DIDÁTICOS: Publicações 
Técnicas desenvolvidos em 

[oo guto 08 

RECURSOS DIDÁTICOS: Conceitos 

e exemplos práticos, através de 
Micros e Telão de 79" 


CURSOS FECHADOS € ABERTOS 
NOVO ENDEREÇO 
Groelândia, 1.750 - Jardim Europa 
01434 - São Paulo - SP 
Telefones: 881-4599 - 88140392 





"MIKROS” 


* Microcomputadores Pessoais 
e Profissionais, Software, Suprimentos 
e Cursos. 

* Financiamento em até 18 meses sem 
entrada e os preços mais baixos do 
mercado. 

* Atendimento perfeito, profissionais 
treinados e habilitados para dar a você 
a certeza de um bom Investimento. 


EQUIPAMENTOS 
Micros das linhas: TRS-80 e Apple e 


IBM e Sinclair e TR$-80 Color 
Impressoras * Vídeos * Interfaces * Etc. 


SUPRIMENTOS 
Formulário Continuo * Disquetes * 
Fitas * Mesas * Etiquetas * Etc. 


SOFTWARE 
Nacionais e Importados mais 
de 2.000 programas e 
jogos de todas as linhas. 


CURSOS 
Basic * Basic Avançado e DOS. 
Av. Ataufo de Paiva, 566 
sobreloja 211 e 202 


Rio de Janeiro - R.J. 
Tels.: (021) 239-2798 e 511-0599 








trs-color trs-color trs-color trs-col 








Olhadinha 





Francisco Corrêa 


Trata-se de um jogo, do tipo educativo, para todos os compu- 
tadores compatíveis com o TR$-Color. Com ele, crianças numa 
faixa de cinco a nove anos de idade poderão memorizar, brin- 
cando, a posição das teclas, bem como incrementar sua capaci- 
dade de concentração e acuidade visual. 

O funcionamento do Olhadinha é muito simples: após o co- 
mando <RUN>, um menu aparecerá na tela, junto com uma 
simulação de um semáforo, à direita do vídeo. Um bip indica- 
rá cada mudança de luz, do amarelo ao verde. Logo em segui- 


REM e 
REM * TRS-BO COLOR CLUBE RJ + 
REM * C.POSTAL 2951 - 20001 + 
REM * POR: FRANCISCO CORREA + 
7 REM e 
10 CLS 
20 PRINTEPS, "A ESQUERDA DA TELA EXISTE UMA": PRINT" 
SINALEIRA IGUAL A DE TRANSITO. " 
30 PRINT"UMA PALAVRA SURGIRA POR UM INS- ANTE NA T 
ELA E VOCE TERA DE DI- GITAR A RESPOSTA CORRETA. " 
4% PRINT"VOCE GANHA 10 PONTOS PARA CADA RESPOSTA 
CORRETA. SE A RESPOSTA ESTIVER ERRADA, VOCE TERA U 
MA SEGUNDA CHANCE, MAS NAO GANHARA PONTOS. " 
Bo REM 
90 PRINTG42," olhadinha "; 
100 FORX=1 TO 200:NEXTX 
110 SC=RND(D) 
PRINTE42," OLHADINHA "; 
SOLUNDZDO, 1 
FOR X=1 TO 200:NEXTX 
PRINTE457, "QUALQUER TECLA"; 
IF INKEy$="" THEN 98 
F=250 
CLS 3 
GOSUR 770 
FOR X=1 TO 30 
PRINTEX,CHR$(179)4 
PRINTEX+256,CHR$ (188); 
NEXT 
FOR Y=532 TO 256 STEP 32 
PRINTEY,CHR$ (181); 
PRINTEY+31,CHR$ (186); 
NEXT 
PRINTE73,"*OLHADINHAS" ; 
FOR X=136 TO 149 
PRINTEX,CHR$S (191); 
PRINTEX+64,CHR$ (191); 
NEXT 
PRINTEI6B,CHR$(191);:PRINTEIGI,CHR$ (191); 
T=T+1 
IF T>10 THEN GOSUE 870 
Z=RND (30) 
IF Z=N THEN T40 
N=Z 
FOR P=1 TO N 
READ N$ 
NEXT 
PRINTEZBS," 
REM 
L$=CHRS (128) 
FOR 0=89 TO 219 STEP 32 
PRINTEO,L$+L$+L5;:NEXTO 
PRINTG418,"10 PONTOS PARA CADA ACERTO"; 
PRINTG122,CHR$ (191); 
SOUNDIO, 1 
GOSUB 940 








>>>DIGITE A RESPOSTA AQUI<<<" 


da, o programa fará aparecer, por um breve instante, uma pa- 
lavra dentro de uma espécie de janela desenhada na tela. O de- 
safio é digitar, no espaço indicado, a mesma palavra e conse- 
guir abiscoitar dez pontos pelo acerto. 


Francisco J. M. Corrêe da Silva é Engenheiro Eletrônico e trabalha atual- 
mente na Xerox do Brasil, como Especialista de Marketing. Lida com 
computação desde 1981 e é fundador do TRS-80 Color Club. 


480 
a90 
495 
so 
ses 
sig 
s20 
s30 
sao 
sso 
se” 
s70 
seo 
s90 
600 
610 
620 
630 
640 
6so 
660 
678 
esa 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
so” 
Bio 
B20 
eso 
Ba 
eso 
Bem 
870 
seo 
B90 
900 
910 
920 
930 
948 
950 
760 
970 
ssa 
990 


PRINTQI22,L5; 

PRINTEIS4,CHRS (255) ; 

SOUNDIQ, 1 

GOSUR 940 

SOUNDIO, 1 

PRINTEISA,L$; 

PRINTELB6 ,CHR$ (143) 

GOSUE 940 

PRINTGLB6,L$; 

PRINTEL69,N$$ 

FOR TL=1 TO F:NEXT 

FOR E=169 TO 180 

PRINTER, CHR$ (175) 3 

NEXT E 

GOSUB 780 

PRINTEZS9," "sz INFUT"QUAL A PALAVRA “"; WE 
IF WE<>N$ THEN GOTO700 

IF TRY=1 OR TRY=2 AND W$=N$ THEN GOTO 670 
IF W$=N$ THEN GOSUE 760 

PRINTEZ0O, "correto"; 

GOSUB 940 

TRY=0 :GOSUB 770 

RESTORE 

F=F-SO:GOTO320 

PRINTEZ91 , "a"Lt"resposta"Lt“esta"L$"errada... 
F=F+100 

IF F>250 THEN F=250 

TRY=TRY+1 

IF TRY=2 THEN GOTO 800 

Goro 420 

Co=C0+10 

PRINTE481, "VOCE ATE AGORA TEM: “CO "PONTOS"; 
PRINTEZSS, "" 

RETURN 
PRINTEJOZ 
PRINTEZ9O, 
FOR A=1 TO M 

PRINTEZD6+A,MIDS (N$,A,1)5 

SOUND RND (230) ,2:NEXT 

GOSUE 940 

TRY=0: RESTORE:GOTO 320 

PRINTEZSS, "JOGA DE NOVO <S> OU <N>"; 
G$=INKEY$S: IF G8=""THEN 870 

“ THEN 910 

THEN CLS4: END 
RESTORE:F=250:C0=0: T=0 

CLS:poTOISO 

Goro 320 

FOR TY= 1 TO 60B:NEXT TY 

RETURN 

DATA RISCAR, ACREDITAR, RUA, MACACO, DINHEIRO, PAO 
DATA REAL, CADEIA, FLOR, PEDRA, SELO, MEL 

DATA HOTEL VILA, AEROPORTO, DADOS, BATALHA, DESTE 
DATA PLUMA, MALA, BARRO, ANEL , LAMPADA, PORCA 








3M=LEN (NS) 
A RESPOSTA E..."; 











1000 DATA CAD, GATO, FRIO, DURO, CARA, CORDA 
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ATI-Produção 

















TRS-COLOR 


CÓDIGOS E MENSAGEM DE ERRO 





Tentativa de divisão por zero. 


Tentativa de reabrir arquivo. Aparece também se o RESET for pressio- 
nado durante operação com gravador. 


Os indices de yma matriz estão fora da faixa. Use DIM para dimensio- 
nara rentriz. 

Ex.: PRINT A(12), dará este erro se A não tiver sido pré-dimensionado 
com pelo menos 12 elementos. 


Tentativa de usar o comando CONT em momento inadequado. 
Ex.: Após o processamento da última linha do programa. 


Tentativa de redimensionar uma matriz. Cada matriz só pode ser dimen- 
sionada uma vez 
Ex.: Não seria possível usar DIM A(10) e DIM A(50) no mesmo programa 


Uso ilegal de número de dispositivo. Com OPEN; CLOSE; PRINT ou IN- 
PUT você só pode usar 0, -1 ou -2. 


Instrução direta no arquivo de dados sem a especificação do número 
de linha, Pode ser causado se você tentar carregar um arquivo de da- 
dos em fita. 


Chamada incorreta de função. Foi usada uma função com um valor ile- 
gal nos seus parâmetros. 
Ex.: SOUND (260, 260) ou A(-1) 


Formato de campo incorreto. Ocorre quando se lê (INPUT) ou grava 
(PRINT) um dado usando formato inadequado. 
Ex.: INPUT &-1,A quando o dado no arquivo é uma string. 


Modo de arquivo inválido. Ocorre quando se tenta entrar com dados em 
um arquivo aberto apenas para saída (0) ou imprimir dados de um ar- 
quivo aberto para entrada (|) 


Instrução direta ilegal. 
Ex.: Tentar usar INPUT sem numeração de linha. 





Tentativa de ler um dado além do fim do arquivo. Use as instruções EOF 
e LOF para descobrir se você já atingiu o fim de um arquivo, neste caso 
feche-o com (CLOSEI. 


Erro de entrada ou saída. Ocorre frequentemente nas operações de gra- 
vação com cassete. 


String muito longa. Cada string pode conter no máximo 255 caracteres. 


NEXT sem FOR. Foi utilizada uma instrução NEXT sem a respectiva ins- 
trução FOR. 


Tentativa de enviar dados para um arquivo ainda não aberto (OPEN). 


READ sem DATA. Os dados das instruções DATA são insuficientes pa- 
ra a instrução READ. 

Falta memória. Toda a memória disponível foi usada ou reservada. 
Falta espaço para strings. Deve-se limpar espaços com CLEAR. 


Estouro de variável numérica. Foi gerado um número muito grande ou 
muito pequeno que o computador não tem capacidade para manipular. 


RETURN sem GOSUB. Foi encontrada uma instrução RETURN, sem 
um GOSUB correspondente. 


Erro de sintaxe. Uso incorreto de pontuação; parênteses; aspas; cará- 
ter ilegal ou comando mal digitado. Redigite a linha ou comando. 


Fórmula de string muito complexa. Foi usada uma operação muito com- 
plexa dentro de uma string. Divida em operações menores para 
funcionar. 


Incompatibilidade de tipo de variável. Foi tentada uma atribuição incom- 
patível com a string utilizada. Ex.: A = “dado”. 


Linha indefinida. Foi solicitado um desvio (GOTO; GOSUB), para uma 
linha inexistente. 








Economize tempo e dinheiro. 











Racionalize seu business forms 


o, um dos mais reno “b 
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Edgar Athayde Meneghetti 


Este jogo foi escrito para os micros 
da linha Sinclair que possuem 16 Kb de 
memória, pois ele ocupa cerca de 3 Kb e 
é totalmente elaborado em linguagem de 
máquina. Nele, você comanda o subma- 
rino Polaris em águas inimigas, onde o 
objetivo é fazer o maior número de pon- 
tos sem ser destruído. 

Inicialmente, carregue o MICRO BUG 
e crie uma linha REM com 2542 carac- 
teres. Introduza os códigos hexadeci- 
mais a partir do endereço 16509. Após 
ter digitado tudo, basta dar RUN que o 
programa será gravado, aparecendo em 
seguida a abertura. Para iniciar o jogo, 
pressione NEWLINE ou o botão de tiro 
do joystick que a batalha irá começar! 

A tabela de pontos é mostrada na fi- 


gura 1. 


Avião = 10 pontos 
Barco = 50 pontos 


Submarino inimigo = 100 pontos 

Líder da tropa = 500 pontos 

Mina = não pode ser destruída 

Bomba = não vale pontos 

Figura 1 

16509 16757 
16517 16765 
16525 16773 
16533 16781 
16541 14789 
16549 16797 
16557 16805 
16565 16813 
16573 16821 
16581 16829 
16589 16837 
16597 16845 
16605 16853 
14613 16861 
16621 16849 
16629 16877 
16637 164085 
16445 16893 
16653 16901 
16661 16909 
14449 16917 
16677 16925 
16685 16733 
14693 16941 
16701 16949 
14709 16957 
16717 16965 
16725 16973 
16733 16981 
16741 16989 
14749 146997 














Pode-se jogar pelo teclado ou pelo 
joystick. E quando aparecer a abertura, 
o programa poderá ser brecado pressio- 
nando SHIFT e BREAK simultaneamen- 
te. 

Na figura 2 encontramos um resumo 
dos principais endereços para eventuais 
modificações ou até mesmo uma perso- 
nificação do jogo. Nela, observamos 
ainda que o número de bombas é a pro- 
porção de O a 254. 

Se você quiser modificar o recorde, 
altere os códigos de 18021 a 18025; 


00 18 F2 00 C9 C3 78 
21 B4 40 CB 7E 20 08 
34 CB ZE 20 01 C9 28 


17005 11 08 00 19 36 
17013 12 49 34 12 09 
17021 32 40 54 SD 29 
17029 29 29 19 22 32 
17037 El C9 36 00 ES 
17045 19 7E FE 09 28 
17053 28 48 FE 12 28 
17061 00 00 00 FE 83 
17069 FE OB 28 E4 FE 
47077 36 02 E1 CP ZA 
17085 F7 02 09 06 15 
17093 76 28 07 FE 02 
17101 18 F3 10 FC C9 
17109 00 00 00 76 00 
17117 EA 36 00 23 7E 
17125 04 36 12 18 08 
17133 FF 19 36 12 Es 
17141 FE 62 38 04 C9 
17149 00 19 7E FE 00 
17157 02 E1 C9 2A OC 
17165 01 09 06 DE 28 
17173 28 07 FE 42 CC 


BO 28 OD 22 B6 40 36 
23 36 06 23 36 00 18 
23 36 00 23 36 00 11 
00 19 22 86 40 21 84 
Ce BE 23 36 00 C9 21 
40 CB 56 20 01 C9 2A 
ae 11 42 00 19 36 02 
76 00 02 06 01 EA ZA 
40 23 11 21 00 19 06 


11 21 00 36 BO 19 10 
04 20 36 B9 23 10 FE 
06 16 41 DF FF 49 36 


19 06 1E 36 08 23 10 
ZA OC 40 11 9E 02 19 
B2 40 ZA OC 40 11 96 
19 22 BC 40 11 21 00 


22 BA 40 19 22 68 40 17181 co 
OC 40 11 68 01 19 22 17189 co 
40 2A OC 40 11 OD 00 17197 42 
22 BE 40 2A OC 40 11 17205 13 
00 19 26 12 11 08 00 17213 co 
J6 12 19 36 42 19 36 17221 sa 
11 20 00 19 36 12 11 Fg 





00 19 06 06 36 12 19 23 36 00 23 7E 


36 09 28 36 08 
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18985 — Número de bombas lançadas 
pelos aviões (quanto maior o 
número mais bombas). 

18990 — Número de submarinos (quan- 
to maior o número mais sub- 
marinos). 

18995 — Número de minas soltas pe- 
los submarinos (quanto me- 
nor o número mais minas). 

19000 — Número de bombas soltas 
pelo líder (quanto maior o 
número mais bombas). 

17441 — Valor atribuído aos aviões. 

17450 — Valor atribuído aos submari- 
nos. 

17469 — Valor atribuído aós barcos. 

16736 — Valor da pausa entre a subi- 
da do tiro e o seu apagamen- 
to (caso o tiro esteja pouco 
visível, aumente o valor para 
6 ou mais). 

Figura 2 


e para mudar o número de vidas, modi- 
fique o valor do endereço 17898 da se- 
guinte forma: ao número de vidas dese- 
jadas, some 28. 


Edgar Athayde Meneghetti cursa a segunda sé- 
rie do Colégio de Aplicação, de Porto Alegre. 
É um autodidata que aprendeu a programar 
em BASIC e Assembler através da leitura de 
livros e revistas. 





12 19 36 17253 FE O2 38 01 C9 ES 44 DÍ 
ES DS ZA 47261 FF 19 ZE FE 00 20 02 36 
29 19 29 17269 BB Es C9 2A OC 40 01 F7 


se 7€ D1 17277 02 09 06 04 28 ZE FE 76 


11 21 00 17205 28 07 FE 09 CC 52 43 18 
F9 FE 89 17293 F3 16 FC C9 36 00 CD 7A 
F2 FE 81 147301 42 FE 55 38 1C FE AA 38 
oo ve 00 17309 4D 11 DF FF 19 7E FE 08 
88 28 EO 147317 CB FE B1 00 00 00 FE 83 
oc ao OL 17325 00 00 00 FE BO CO 36 88 
28 7E FE 17333 C9 41 DE FF 1B E6 11 EO 
cc Br 42 47344 FF 48 F9 ED 78 78 40 CD 
vo ce 00 17349 25 48 [3 34 48 00 00 00 
o3 FA 00 17357 00 08 00 00 00 00 00 00 
FE 86 28 17365 00 76 DO 04 C4 00 EA ZA 
ES 11 E2 17373 OC 40 01 4A 01 09 04 OD 
Co ZA 42 17381 23 7E FE 76 28 07 FE 88 
Es 41 21 17389 CC 91 43 18 F3 416 FC C9 
20 02 36 17397 FE BB 20 04 CD SF 41 C9 
so é1 BC 17405 36 00 FS ES CO SF 41 EL 
ZE FE 76 17413 F4 FE 12 28 16 FE 09 28 
DE 42 18 17421 18 FE 08 28 1D FE 84 28 
ZA 42 FE 17429 1E FE 06 28 1F 00 00 00 
ZA 42 CO 17437 36 00 C9 06 GA CD SA 44 


FE 55 38 17445 C9 28 6 00 06 64 CD SA 
2A BB 40 17453 44 C9 23 36 00 18 FS 23 
36 09 28 17461 36 00 18 03 28 36 00 06 
so 18 FO 17469 CB CD SA 44 21 B4 40 CE 
28 36 00 17477 BE 23 36 00 2A Bó 40 23 
FE Bo C8 17485 7E FE 80 28 02 18 FS 28 
CD 7a 42 17493 2B 22 B6 40 C9 ES 2A BE 
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Empresa filiada à ASSESPRO. 


17501 
17509 
175147 
17525 
17533 
17541 
17549 
17557 
17565 
17573 
17581 
17589 
17597 
17605 
17613 
17624 
17629 
174637 
17645 
17659 
176461 
17649 
47677 
17685 
17693 
17701 
17709 
47717 
17725 
17733 
477414 
17749 
47757 
17765 
17773 
17781 
17789 
17797 
17805 
17813 
17821 
17829 
17837 
17845 
17853 
17861 
17869 
17877 
17885 
17893 
17901 





Polaris 


Faz a Folha de Pagamento de sua empresa, 
emitindo relatórios como Guia de IAPAS, 
Guia de FGTS, Relação de Empregados, 
Relação para |.R., Relação para Banco, 
Informe de Rendimentos, Acumulados 
Anuais, RAIS e Recibo de Pagamento. 

A folha pode ser semanal ou mensal. 

As tabelas são modificadas pelo próprio 
usuário. 

Permite também, adiantamentos de salário, 
reajuste salarial, alterações de acumulados e 
outras funções que agilizem o processamento 
da Folha de Pagamento da empresa. 

















A Contabilidade de um mês em apenas 2 horas! 
Este Sistema permite o cadastramento de 
históricos padronizados e de plano de contas 
com até 5 níveis. 

Emite Diário, Razão, Balancete, Balanço, 
Demonstração de Resultados. Demonstração 
de Lucros e Prejuízos acumulados, Listagem 
por centro de custo e extrato de contas, entre 
outras funções. 








Controla o estoque de itens com 
Especificação, Estoque Mínimo, Unidade, 
Fornecedor, Localização e outras 
informações relacionadas no item como 
Custo Médio, Entradas e Saídas no período, 
etc. 

Fornece Listagens Geral e Parcial dos 
produtos, Listagem Físico-Financeira, 
Listagem dos produtos abaixo do estoque 
mínimo, Lista de Preços e Etiquetas, entre 
outras. 

Admite também, Reajuste de Preços, 
Alteração de Dados e Exclusão de Produtos. 








Compatíveis com as linhas TR5-80 e Apple. 





A NASAJON oferece assistência técnica total, 
garantia permanente e mantém à sua disposição programadores 
e analistas para desenvolver sistemas específicos sob encomenda. 


Conte com a NASAJON SISTEMAS. 













nasajon 


Av, Rio Branco, 45 - Grupo 1.311 
Rio de Janeiro - CEP 20.090 
Teis.: (021) 263-1241 e 233-0615 
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O peixe guloso 





Aldo Barduco Jr. e Pierluigi Piazzi 


No fim do dia, quando os pescadores 
se retiram, deixam latas com minhocas e 
outras iscas na beira do lago. Water, um 
peixe de nome científico PISCES FA- 
MINTUS, está com muita fome e sai à 
procura de alimento. Tendo o hábito de 
ficar soltando bolhas na água, descobre 
que, ao soltá-las sob as latinhas, destas 
caem minhocas. 

Os peixes desta espécie habitam os 
frios lagos do Tibet, onde existe o terrí- 
vel LUPUS AQUATICUS, popularmente 
conhecido como Peixe-lobo. Os Peixes- 
lobos têm como dieta tudo que encon- 
tram pela frente, menos as terríveis Pi- 
ranhas Azuis. 


O único peixe capaz de se alimentar 


REM Aldo Barduco Jr 

10 FOR F=USR “a” TO USR “u”+7s 
READ x: POKE fox NEXT € 

11 LET AS="21 LET B$0””: FOR F 


90 IF K THEN LET K=0: GOTO 100 
95 SOUND 


destas Piranhas é Water, mas, se a Pira- 
nha estiver por trás, o devorará em pou- 
cos instantes (a “ecologia” da região é 
realmente confusa!). 

O Tibet tem um relevo jovem (ter- 
ciário), por isso são tão comuns desaba- 
mentos e terremotos. A partir de uma 
certa hora, os desabamentos dos barran- 
cos do lago começam e não param mais. 

Como os gatos têm sete vidas, Water 
possui três. 

Boa sorte e muito cuidado. No Tibet, 
os mistérios são muitos... 


o JoGo 


Você deverá conduzir Water, desvian- 
do-o dos Peixes-lobos (e da Piranha, se 


«009,12 


estiver atrás). As teclas para controle de 
Water são: 7 (para subir); 6 (para descer) 
e O (para soltar bolhas). No topo da tela, 
estão indicados os pontos e as vidas. 


As bolhas só podem ser soltas uma de 
cada vez. Caso a bolha atinja a latinha, 
minhocas cairão na água, e Water deverá 
pegá-las. Já, se ela atingir o louco Monge 
Nadador, esta sumirá. 

Iscas amarelas de formas estranhas 
aparecerão na tela. Ao pegá-las, você 
adiciona 1000 pontos ao seu placar. 

Os Peixes-lobos virão à sua frente em 
Ziguezague. Desvie, pois, se não o fizer, 
a morte será certa. Já as Piranhas Azuis 
vêm por trás e tentam pegá-lo. Se você, 


210 MEXT Xº PRINT AT v,304” “4 
AT TY,304” “3 GOTO SO 
900 LET L=INT (RND$S+1): FOR F= 


=4 TO 32 STEP 2º LET AS=AS+CHRS 
140: LET BS=BS+CHRS 1494CHRS 148 
3 NEXT F: LET AS=AS+AS! DIM R$C1 
0,20): DIM Rc10) 

12 BORDER 1: PAPER 4º INK 7. G 
OSUB 3000 


20 BORDER 11 CLS 4 LET y=491 L 


ET BXm0: LET By=0: LET BO=0: LET 
Ong: LET N) LET NY=3: DIM NC 
3)! LET Pag T T=0t LET TC=0: 
LET V=0s LET TY 

36 PRINT mip” + BRIGHT 14CH 
R$ 4 HRS 1451 BRIGHT 05” Unte 
ie guloso”: LET My=4: LE 
RINT AT 21,07AS/AT 21,0 
+ INK 47 OVER 156% 

40 LET K=0t LET PX=0: LET Py=s 
Ot LET DX=0: LET DY: 
TO 2º PRINT AT F,Or 














NEXT F 

45 LET TY=yi PAPER 5: INK O! P 
RINT AT 4,5/CHRS 1462AT 4,15/CHR 
$ 1463AT 1,25/CHR$ L463AT 2,5/CH 
R$ 1475AT 2,155CHRS 1473AT 2,257 
CHR$S 1471 PAPER 41 INK 7 

46 PRINT AT 0,35 PAPER Sp INK 
er“Pontos:”; PAPER 5y INK G3AT O 

P 





107 

49 FOR U=3 TO 4 STEP -4º PRINT 
AT 0,167 PAPER 5y INK Or“Vidast 
“> PAPER Sp Ii Vz SOUND .01,2 
0% PRINT AT 3,07 





50 FOR X=2 TO 31º LET 0=0+(0=0 
)-(0m4) 

70 LET Y=y+CINKEYS="6” AND vcs 
PI-CINKEYS="7" AND Y)S)1 IF NOT 
BO THEN LET BO=(INKEYS="0"): LET 

BY=(Y-1 AND BO)1 LET BX=(X-2 AN 
D BO): IF BO THEN PRINT AT BY,BX 
»CHRS 151 

74 LET K=K+CATTR (Y,X61)6515) 

75 IF TY4)Y THEN PRINT AT TY,X 
-39" 0 “9 LET Tyay 

BO PRINT AT Y,X-25” “+(CHRS 14 
A+CHRS 145 AND 0=1)+(CHRS 458+CH 
R$ 145 AND o=0) 

85 IF PX-4<X AND X(PX THEN PRI 
NT AT Y.X-29” “ICHRS 1443CHRS 45 


100 IF P>1000 THEN PRINT AT My, 
MX7 Ca LET MYaNY+CMYCDO)-(MY-4 
AND MY249)2 PRINT AT MY,MXICHRS 
160: SOUND .00191,15 

104 IF (MX=X AND MY=Y) OR (MX=x 
-1 AND MY=Y) THEN PRINT AT Y,X-1 
2 “a NEXT VE GOTO 2000 

105 IF My=4 THEN PRINT AT MYy,MX 
$7 “x LET MX=INT (RNDa34) 

110 IF MC1) AND (PXeX-S AND Pym 
Y) THEN PRINT AT Y,X-29” 0  “s ME 
XT vz GOTO 2000 
120 IF T THEN LET TaT-4 
130 IF BY=NY AND BX=NX THEN LET 





LET NX=NX-(NXD0)+(34 AND NX 
=0): PRINT AT NY.NXICCHRS 157 AN 
D NX/2=INT (NX/2))+(CHR$ 156 AND 
NX/26DINT (NX/2)347 + 

150 IF 60 THEN PRINT AT BY,BX;” 
“4 LET BY=BY-(BY)3)1 PRINT AT 8 
Y.BXICHRS 150 

160 IF M(1) THEN PRINT AT PY,PX 
vó “a LET PX=PX+CINT CRNDe2) AND 
PXC31)-(30 AND PX)30)4 LET Py=p 
Y+SGN (Y-PY)SINT (RNDN2): PRINT 
AT PY,PXy INK SICHRS 153 

470 IF M(2) THEN PRINT AT DY,DX 
1º “2 LET DX=DX-11 LET DY=DY+SGN 
(Y-DY-RNDRS.5): PRINT AT DY,DX; 
INK 47CHRS 155t IF NOT DX THEN 
PRINT AT DY,0X3” “1 LET M(2)=0 
180 IF NOT HC1) AND RNO(.4 THEN 
LET PX=0: LET Mc1)=PI/PI 

195 IF NOT M(3) AND RND(.02 THE 
N LET N(3)=12 PRINT AT RNDU15+5, 
RNDs29+1; INK 47CHR$ 154 

200 IF NOT M(2) AND RND(.2 THEN 
LET DX=314: LET N(2)=PI/PI 

205 IF (DX=X-1 AND DY=Y) OR (DX 
=X AND DY=Y) THEN PRINT AT Y,X-2 
17 “a LET Dy=(24-4)1 NEXT Ui 6 
oTO ese 

206 IF By=3 THEN LET BY=2: LET 
BO=6: PRINT AT 3,8X;” “1 GOTO O» 
(900 AND ATTR (BY,8X)=40)+(207 A 
ND ATTR (BY,BX)()46) 

207 IF BY=3 THEN PRINT AT By,8X 
17 “2 LET B0=0 

208 IF NOT NX THEN PRINT AT NY, 


4 TO Lt LET L7=INT (RNDN7+3)1 PR 

INT AT L7,F+BXICHRS 152: NEXT Fa 

LET T=30: SOUND .001,10 

716 GOTO 207 

1000 IF ATTR (Y,X+1)=14 THEN LET 

P=P+TevE PRINT AT Y,X-S3CHRS 14 

4FCHR$ 1597 PAPER 5; INK GrAT O, 

10; 

1010 IF ATTR (Y,X+1)=13 THEN LET 

H(1)=02 LET P=P+60+INT (RNDs20) 

* PRINT PAPER 5; INK O3AT O,104P 

1020 IF ATTR (y.x+1)=12 THEN NEX 

T vz GOTO 2000 

1025 IF ATTR (Y.X+1)=14 THEN LET 
PRINT PAPER Ss INK O 
PRINT AT viXeta” “e E 


GOTO 100 
PRINT AT 2,1:"05 RECORDISTA 
FOR F=4 TO 13: PRINT AT F,2 
F-3)sRCF-3) NEXT F 

2016 FOR F=1 TO 10 


2026 IF R(FICP THEN LET Ri=F: GO 
E) 


NEXT €: GOTO veda 
2 FOR F=9 "> Q4 STEP 44 LET 
R$CESL)SRSCF)S LET RCF+1)=RcF)E 
NEXT F: PRINT AT 21,2;"Recordist 
a digite seu nome.”: INPUT RSCR$ 
=P: FOR F=4 TO 431 P 
SCF-3)sRCF-3) NEXT 


o 
3099 CLS : PLOT 244,171: DRAW -1 
16,2: DRAW 2,10,3:º PRINT AT S 
INK 5 


E PRINT INK 35” “sCH 
AAFCHR$ 145 
3020 PLOT 93,170: DRAW 3,-20: DR 
AM 2,15: DRAW 2,-15: DRAW 3,207 
PRINT AT 2,133] ATER” 
3036 PRINT AT 16, 
1647” By Aleph Pui 
3035 PRINT AT 18, 
Aldo Barduco Jr” 


€(P)> By 


3040 PRINT AT 2: 
etra para conti 
3045 IF INKEY$S=" 
3047 PRINT AT 2 


“Aperte uma 1 


EN GOTO 3045 





3050 PRINT AT 9,0:” Controle Uat 


041 FOR F=1 TO LEN 08 
OUND .25,VAL OSCF TO F+ 


2)% NEXT F 


3070 


$ 1623CHRS 163 
J08e TF INKEYS 


309e 


PRINT AT 'S7CHRS 1614CHR 
“py INK 35785” 
THEN GOTO 3080 
RETURN 


9000 BRIGHT 1: FOR G=1 TO 10: FO 
R F=0 TO 7: BORDER F: SOUND F/10 
O.F+GeRND: NEXT F: NEXT G: BRIGH 


9130 


PRINT Wis"Aperte uma tecla 
o inicia 

SOUND .001,RND"RND: IF INKE 
THEN GOTO 9610 

Boro 26 

DATA 120,188,142,135,7,6,44 


DATA 96,48,124,244,255,126, 
DATA 60,66,153,165,165,153, 
DATA 126,195,153,173,181,15 


0,0,16,170,69, 


0,0,51,204,0,0,0 
9150 DATA 64,166,73,9,134, 





64,32,119,248,116,95,1. 
DATA 16,34,118,248,116,34, 
«60,126,135,135,134,12,24 

DATA 96,48,126,247,252,224, 


e 
DATA 82,165,128,85,164,139, 
+0,6,6.38,90,63,162,66 
DATA 64,160,161,161,193,199 


+41,30,0,0,0,96,208,184,144,96 


v230 


DATA 60,66,153,161,164,154, 


66,60 





porém, pegá-la por trás, fará muitos pon- 
tos. 

Ao passar dos 1000 pontos, uma pe- 
dra começará a cair da borda do lago e, 
se atingir Water, este perderá uma vida. 
Ao final, o programa mostrará os recor- 
distas. Caso você tenha batido algum re- 
corde, deverá introduzir seu nome, que 
será exposto à admiração pública e exal- 
tação generalizada! 


PARTES IMPORTANTES 
DO PROGRAMA 


Inicialmente, explicaremos as rotinas 
mais interessantes e importantes do pro- 
grama Water e, a seguir, daremos algu- 
mas dicas de alterações. 

A linha 10 faz a leitura dos DATA, 
que estão a partir da linha 9100 e colo- 
ca seus valores na memória do UDG re- 
definível pelo usuário (dizemos “redefi- 
nível pelo usuário”, pois existem o UDG 
1 e o UDG O que o próprio TK define). 

A linha 11 dimensiona R$ para que 
guarde o recorde e os recordistas. 

Na linha 30, o primeiro PRINT exe- 
cuta uma impressão na parte inferior da 
tela, nas linhas de edição. 

Na linha 50, iniciamos o movimento 
do Water, pois fazemos um LOOP de 2 
até 31 e armazenamos o valor em x (que 
corresponde à coordenada x da posição 
do peixe). Nesta mesma linha, coloca- 
mos em O o valor 1, se O for 0, e 0, se O 
for 1. Daqui a pouco você verá o por- 

uê. 
: A linha 70 faz a leitura do teclado. 


Na linha 71,verificamos se existe al- 
gum caráter de cor diferente do fundo, 
à frente de Water. Este recurso nos per- 
mite saber qual caráter está na dada po- 


sição (ver da linha 1000 até a 1025). 

Na linha 75, verificamos se Water 
mudou de linha (subiu ou desceu) e, em 
caso afirmativo, apagamos a velha posi- 
ção que ele ocupava. 

Na linha 80, imprimimos Water e va- 
riamos sua cauda de acordo com o valor 
de O (veja linha 50). 

A linha 85 verifica se estamos quatro 
caracteres atrás da piranha e, se estiver- 
mos, faz com que Water abra e feche a 
boca. Já a linha 101 verifica se a pedra 
atingiu Water. 


Da linha 105 até a linha 210 há o 
movimento de todos os outros elemen- 
tos na tela e a verificação de se algum 
destes atingiu Water. Não entramos em 
detalhes, pois os processos já foram men- 
cionados (verificação de uma posição no 
vídeo, verificação nas próprias variáveis 
que contêm a posição do Water). 

Da linha 2000 até a 2040 há a expo- 
sição dos nomes recordistas, verificando 
se houve recorde batido. Em caso positi- 
vo, é feita a inserção do nome no novo 
recordista. As linhas 9000, 9010 e 9020 
são continuação desta rotina (2000- 
2040), sendo apenas de recursos sonoros 
e visuais do final do programa. 

Na linha 3000, usamos recursos de 
desenho (PLOT, DRAW), para escrever 
*W” e desenhar a lua. 

Na linha 3060, guardamos, na variá- 
vel 0$, a melodia que toca durante a 
apresentação. 

Na linha 3070, é impressa a assinatu- 
ra do autor do jogo e o ano em que foi 
feito (Aldo 85). 

As possíveis mudanças que não alte- 
rariam a estrutura do programa são: 

Modificar as teclas para 8 e 9, ao in- 


APROVADO PELA SEI 
Portaria 205 de 23-08-85 


vés de 6 e 7, seria muito interessante pa- 
ra Os que possuem joystick. 

Para modificar o son do programa, 
altere a linha 95. 

Se achar que o número inicial de vi- 
das é muito pouco, altere o FOR V=3... 
para FOR V=Número de vidas inciais 
desejado... 

Não mude a cor do jogo, pois isto re- 
quer um conhecimento maior sobre o 
funcionamento das funções ATTR que, 
no caso, serão totalmente alteradas (em 
termos de valores referidos aos caracte- 
res do jogo). 

Para se gravar o programa, basta dar 
o comando direto SAVE “WATER” LI- 
NE 10 e o mesmo irá entrar em auto- 
start. Se quiser gravá-lo de uma forma 
mais compacta, execute a linha 10 e de- 
pois elimine as linhas de 9100 até o final 
e substitua a linha 10 por LOAD “““ CO- 
DE. Em seguida, grave o programa em 
duas etapas: 


1) SAVE “WATER” LINE 10 


2) SAVE “WATER” CODE USR “a”, 
168 


Quanto ao resto, deixamos por conta 
de sua habilidade e imaginação. Bom di- 
vertimento! E 





Aldo Barduco Jr. está cursando a 8º série do 
primeiro grau e é autodidata em BASIC e As- 
sembler. Possui um TK 85 e um TK90X. 


Pierluigi Piazzi é formado em Química e Físi- 
ca pela USP. Foi professor do curso Anglo 
Vestibulares e já editou a revista “Microhobby. 
E autor de vários livros e atualmente dirige a 
Aleph Publicações, responsável por muitos su- 
cessos na área editorial, dada a sua orientação 
didática. 
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H Rally 


Luís Maurício Chopard Bonilauri 


Rally/Bas é um jogo rápido e emocionante, que po- 
derá diverti-lo por longas horas. Ele foi programado em 
BASIC, mas possui duas rotinas, em linguagem de má- 
quina, para agilizá-lo e produzir som. 

Originalmente, o programa foi feito em um CP 500, 
com drive, e para rodá-lo em equipamentos com cassete 
é necessário uma modificação, já que ele possui duas 
rotinas em Assembler, e o monitor BASIC residente só 
suporta uma. A modificação consiste em suprimir a ro- 
tina de som, uma vez que a outra rotina serve para des- 
locar a tela, sendo por isso mais importante. Deve-se 
proceder da seguinte maneira: 


19) Alterar a linha 80 para: 80 POKE 16526,0:POKE 
16527,125. 


2º) Retirar as linhas 120, 130 e 180. 


3º) Retirar da linha 340 o trecho: FOR Y=1 TO 
5:X=USRI(50):NEXT. 


49) Mudar a linha 470 para 470 REM. 









me RALLY x MARCHA: 1 RECORDE: 28 224 Ka 
Se 


NOVO RECORDE! 





| 
E 





Exemplo de tela do jogo. 


ii 
Luís M. C. Bonilauri tem 13 anos e, desde 1984, faz programas 
em BASIC e Assembler. Aprendeu as duas linguagens através de 
livros e manuais. 














10 Consenunms RR nn nn nan nn nn ma mn 
20 "* LUIS MAURICIO CHOPARD BONILAURI, RIO DE JA 

O Cenmunnenm RR RR 

40 CLEAR 300 

So RE=y 

40 RANDOM 

70 Ab=CHR$C174)+CHR$C175)+CHR$(132)+CHR$(Z6)+STRINGS (3H) +UHRS O 


3H) +CHR$(131)+CHR$C129) 

80 DEFUSR=32000:DEFUSRI=-B192 

90 B$=CHR$(170)2C6=CHR$(149) 

100 F=32000 

110 READ AZPOKE F,AzF=E+1ZIF A()201 THEN GOTO 110 

120 F=-B197 

130 READ AZPOKE F,AZF=F+1ZIF A()201 THEN GOTO 130 
oo 







S00:CLSZPRINTOO, um RALLY me MARCHAS à 
7064, STRINGS(64,140); 


37 01684, 324,154 
7, 2148,60,1,14,0 


e 
S+128,85,941+128,0%; 


220 IF PEEK(15350)=64P=P+2 ELSE IF PEEK(15IS0)=16P=| 
130 IF PEEK(153604+P))128 OR PEEK(15342+P))128 GOTO ato 


CAT GRELSE JF PERROSAAS 















280 IF M=0 THEN GOTO 200 

290 FOR F=1 TO 25:NEXT 

360 GOTO 200 

310 PRINTASA, 1; Km”; 

320 PRINTOPZ2, STRING$(15,128)7 0966, STRINGÉ(LS, 1265 

330 PRINTOP-64,CHR$(144)5 7 CHR$(144) FP, CHRBCL 6) CHEGO IDO 
HR$(145) 7 CHR$CL3Z) FDP +64, CHR$CÍ29)FCHR$CLIO) SOHK SCI SO Fun 
340 IF I)RE THEN RE=IZPRINTO/60-128-10, NOVO RECORDE 

TO 5:X=USRi(SO)2NEXT ELSE FOR Caí 100: NEXT 

150 TECLE CENTER) P RECOMECAR 

140 O THEN 360 ELS 







370 
4977 :NEXT=:PRIN 
380 FOR F=0 TO É 
4, STRINOS(7,126); 
390 RETURN 

400 CLSSPRINTADI, 4 4 RALLY 
410 PRINTIPRINTIPRINT 

mas cuidado com & 


P 2:PRINTAF* 


$7 
RINTOSA, “ATENCAO! ;5F0] 
OR T=1 TO 34:NEXT:NEX 








420 PRINT” Use « 
gatar a  primeir se PE 
430 PRINT” BOA SORTE 





440 PRINTEPRINTEPRINT orz Luis Mauri Ubroparas leon ame 
450 PRINTAP77," TECLE CENTER) PARA COMECAR f totiilia o 
460 F=30 


470 X=USRÍ(30030+F)zF=F+10ZIF F=150 THEN 
aB0 IF PEEK(15350)=0 THEN 470 

490 RETURN 

500 CLS:PRINTOS19, “Qual o nivel (dificils 
540 IF V>21 OR UCS THEN 500 

520 RETURN 








O UNITRON REVELA 
O SEU SEGREDO: 





MODULARIDADE 


Quem compra um micro está investindo no 
presente e no futuro. Por isso o equipamen- 
to deve acompanhar a evolução das neces- 
sidades e aplicações do usuário. Através 
dos seus oito slots (parte superior da foto), 
o UNITRON APII permite a expansão do 
equipamento na medida em que crescem 
as necessidades e de acordo com as eco- 
nomias de cada um. 

Você pode começar comprando um UNI- 
TRON APIle ligá-lo na TV (P&B ou cores). De- 
pois pode acrescentar disk-drives, impres- 
sora, monitor profissional, placa Z-80 para 
CP/M, placa 80 colunas, interface de co- 


O MELHOR CONJUNTO 


UNITRON APII, MONITOR COMPO, DRIVE ELEBRA, 


IMPRESSORA MONICA E INTERFACES. 


O MAIOR REVENDEDOR UNITRON DE TODO O PAÍS 





municações, etc., etc. Você pode também 
aumentar a memória do seu micro com pla- 
cas de 16, 32, 64 ou 128K. Tudo isto de mo- 
do bastante simples, com manuais em por- 
tuguês e fácil instalação. Quanto ao softwa- 
re, você dispõe de programas como o VI- 
SICALC, DBASE, WORD STAR e milhares de 
outros best-sellers, desenvolvidos para o 
“APPLE Il+” norte-americano. Essa modu- 
laridade e riqueza de software é que fazem 
do UNITRON APIl o micro mais vendido pa- 
ra empresas, profissionais liberais e famílias 
inteligentes. Fique com o melhor. 

Fique com o UNITRON APII. 


2690rTN's 


2 
mo 
o 
DB 
q 
s 


30/01/86 





assessorarte 


(TO 





tato a a SS 
é ) 224- pé - RIO DE JANEIRO - RJ é: 
A AV. PAULISTA, 726 - 5: x . INFORMATICA MPR 
46 MICRO SISTEMAS, Janeiro/86 TEL.: (011) 2884499 . CEP 01368. SÃO PAULO - sp E L 


zx81 zx81 zx81 zx8 








À na : 


Micro-golf 





William Tadao Tanji 


O golf é um esporte que depende de calma, habilidade, pa- 
ciência e muita concentração, para efetuar as tacadas. O Micro- 
golf exige do jogador controle absoluto a cada lance, o que se- 
rá feito por intermédio de um boneco bem humorado. 

Este boneco estará sempre esperando que o jogador se ma- 
nifeste, aprovando as tacadas corretas e reprovando, com iro- 
nia, as aventuras falhas. Para dar a intensidade da tacada, basta 
apertar qualquer tecla, exceto STOP. Quanto maior o tempo 
de pressão, maior a intensidade. Porém, se o tempo for longo 
demais, a intensidade volta a zero. 

Agora, é só apertar RUN... e boa sorte. 





William Tadao Tanji é formado pela Escola Técnica Senai Suíço-Brasilei- 
ra, de São Paulo, em Mecânica de Precisão. Atualmente estuda no Insti- 
tuto de Ensino de Engenharia Paulista. Tem a microcomputação como 
hobby, sendo usuário de um CP-200. 





Tacada especial 


O Centro de Processamento de Dados da revista MICRO 
SISTEMAS eta ado Felicio algumas sugestões do lei- 
tor, visando ve no programa: 

Sire pr 110 até proa linhas abaixo. Assim, 
você terá no vídeo a visualização da intensidade na tacada. 


405 LET AS=INKEYS 

104 LET I=1+.5 

107 PLOT Iw2+11,32 

108 IF 1=21 THEN LET I=0 

409 IF 1=0 THEN PRINT AT 5,5588 
To 22) 


Acrescentando ainda esta linha (a seguir), você obterá o 
movimento do taco: 

425 PRINT AT 14,37” “FCHRS 1347 

TAB us” “YCHRS ZITAB 147 dy 

CHARS 73CHRS 129; TAB 497 “CHARS 

6YCHRS OrCHRS 6FCHRS 4FCHRS 477 

AB 4JCHRS 1307CHRS O:CHRS 1307CH 

























Venha para o clube 
diferente de Apple 


“MAGIC 
WORLD 
CLUB” 


Escreva para nós e 
tenha uma 
apple surpresa. 





Caixa Postal 62521. 
CEP 01150 
Tel.: (011)664316 
São Paulo-SP 





UTILIZE 
ESTE 
ESPAÇO! 


A MICRO SISTEMAS 
oferece a seus 
clientes este serviço 
especial. 
Com esta opção de 
espaço e custo, 
ninguém vai deixar de 
anunciar. 
ou Consulte-nos pelo 
Pici telefone 262-6306 
CE (Departamento de 

O Publicidade), com a 
a + Srta. Nilce ou 
a (011) 853-3800, com a 
UN srta. Vera. 


% 











“É, pasa O 

















NOVA FASE 1986 
VOCÊ RECEBE, INTEIRAMENTE 


— Um curso completo de BÁSIC 

— Edições Mensais do Compuclub 
News, com programas de jogos, 
aplicativos e dicas especiais para o 

dy seu equipamento. 

— A cada 45 dias, programas 
amplamente documentados, com 
seus manuais de instrução, 
gravados em fita HOT LINE, a 
melhor opção para o seu acervo de 
softs. 

E AINDA GANHA O DIREITO DE 
ADQUIRIR, PELO MENOR PREÇO DO 
MERCADO, MICROS, 
SUPRIMENTOS E ACESSÓRIOS. 
Associando-se agora, você ainda 
recebe os 5 boletins já editados pelo 
clube, incluindo o especial 
; | dezembro/85. 
| | Solicite, ainda hoje, informações 
] detalhadas acerca de como participar 
do COMPUCLUB. Não se esqueça, 
porém, de indicar o tipo de micro que 
você possui. 
COMPUCLUB — Caixa Postal 46 (36570) Viçosa-MG 


CURSOS 
DISPONÍVEIS 


- OBASE III" romação Básica” 


RR ONE 
Você qm at FE nAR 
Auiro FEMÉ dompuerus 
A 





ea. sen S 0219 


BROS 


Treta Se aan de Saem 


- Introdução à Microcomputação 

- DOS - PC "Sistema Operacional - LOTUS 1- “Plan. Eletrônica” 
UNIX “Sistema Operacional *- Framework "Sistema Integrado” 

- LINGUAGEM C "Ling. Programação” - Symphony "Sistema Integrado” 
aBASE Il "Programação Básica - Wordstar "Processador de Texto” 
dBASE Il "Programação Avançada * Em desenvolvimento 





MATERIAIS DIDÁTICOS: Publicações Técnicas desenvolvidas em 


Ss. 
RECURSOS DIDÁTICOS: Conceitos e exemplos práticos, através de 
Micros e Telão de 72”. 
CURSOS FECHADOS E ABERTOS 





—— 





Plantão de dúvidas. 


BASIC . 
CURSOS DELTA/DATA RIO 


Turmas às 238 e 438 338 6 528 6 aos sábados. 
Microcomputadores CP-500 da Prológica. 


Preços promocionais parcelados. 
Apostilas e certificado de conclusão. 
“Clube do Micro” às 628 onde o CP-500 






COBOL 






OMPUCLUB 


Um CLUBE MUITO ESPECIAL 
Para usuários dos equipamentos id, 
TK-85, TK90X, CP-400, CP-500 
e compatíveis 





e Micros 
e Software 





FORMULÁRIOS 
CONTÍNUOS 


Diskettes, Mini Diskettes 
Formulários Oficiais 
Fitas ppara Impressoras 
Fitas Magnéticas 
Etiquetas Auto-colantes 
Arquivos para Diskettes 
Pastas para Formulários 


ATENDIMENTO 
IMEDIATO 
E PRONTA ENTREGA 


Rua Antonio das Chagas, 180 
CEP 04714 — São Paulo-SP 
Tels.: 548-7137 e 523-8563 


JE PRINT 


FORMULÁRIOS E REPRESENTAÇÕES LTDA. 


ALBAMAR 


ELETRÔNICA LTDA. 


FITAS CASSETES 
TAMANHOS 
om ou fo 04 E: 0/70] 
C30 e outros 


SFITAS 
MAGNÉTICAS 
1200 e 2400 pés 


e VHS — BETAMAX 
De T5 a 7120 
O DISKETTES 
51/4e8' 


Rua Conde de Leopoldina, 

270-A São Cristóvão — R.J. 

Tels.: (021) 580-6729 
580-8276 















O “PACOTÃO" OFERECE: 


e Assistência Técnica 
IBM/PC, XT e AT 


e Suprimentos 


e Acessórios Periféricos 


CONSULTE 
NOSSOS PREÇOS! 


LIGUE JÁ! 











Micro-golfe 
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Rua Machado Bitencourt, 278 (011) 549-9811 S. Paulo — SP 
Rua Voluntários da Pátria, 286 - 20 (021) 286-4740 - 
R. de Janeiro - RJ 








(011) 276.8988 


CEDATAIOAD 


Rua Luiz Goés, 1894 — São Paulo 
CEP 04043 — Telex: (011)37755 DTRD 





Crie seus próprios jogos e movimente figuras em alta resolução, 
nos micros da linha Apple, utilizando as rotinas da ROM. 








Alta resolução 
em Assembler (|) 


Evandro Mascarenhas de Oliveira 





e maneira análoga ao publicado em MS nº 27, serão 
discutidos os aspectos ligados ao uso das sub-rotinas 
da ROM e endereços da página zero para a geração e 
movimentação de figuras em alta resolução gráfica, 
utilizando a linguagem de máquina do microprocessador 6502. 

A alta resolução gráfica ocupa duas páginas de 8 Kb da me- 
mória de vídeo, indo a página 1 do endereço $ 2000 ao ende- 
pré $3FFF e a página 2 do endereço $4000 ao endereço 

FF. 

A página do modo texto é constituída por 24 linhas e 40 
colunas, tendo como unidade gráfica a matriz de 7 colunas por 
8 linhas. Em modo gráfico de alta resolução, esta matriz é dis- 
tribuída nas 24 linhas e 40 colunas resultando em 24 x 8 = 192 
linhas em modo gráfico completo, ou 20 x 8 = 160 linhas em 
modo gráfico/texto e 40 x 7 = 280 colunas, num total de 280 
x 192 = 53760 pontos. 

Para diminuir a quantidade da memória de vídeo, relativa 
aos 53760 pontos, adotou-se um byte de 7 bits (o oitavo bit 
serve para controle da cor) para unidade gráfica por linha, fi- 
cando os 280 pontos em cada linha referenciados por 280/7 
=40 bytes ou endereços, havendo no total das linhas 192 x 
40 = 7680 endereços os 512 endereços restantes não utiliza- 
dos na memória de vídeo dão o total de 8192 bytes ou 8 Kb 
por página). 

Quando um bit tem o valor 1, acende um ponto na tela; 
e quando tem o valor 0, mantém-se apagado. Se um determi- 
nado byte na memória de vídeo, por exemplo, tem o valor 
$73 (binário 01110011), ter-se-á cinco pontos com nível alto 
— portanto, acesos — e dois com nível baixo — apagados — que 
se apresentam de maneira reversa ao binário (figura 1). 

A determinação da posição de um ponto luminoso e a pági- 
na da memória de vídeo onde está sendo exibido, estão rela- 
cionadas às seguintes sub-rotinas e endereços da página zero: 

1 — HPOSN: Sub-rotina com início em $F411, dá a posição 
inicial da linha para o ponto de coordenadas € (coluna) e L (li- 
nha), sendo que: 

C — Varia de O a 279($00 a $117), cujos valores neces- 
sitam ser referidos por dois endereços, LSB e MSB, respectiva- 


50 





mente, byte menos significativo e byte mais significativo. 
L — Varia de O a 191($00 a $BF), bastando um só en- 
dereço para ser referenciada. 

Carregando o acumulador com o valor da linha, o registra- 
dor X com o LSB e o registrador Y com o MSB da coluna, 
ter-se-á o endereço inicial da linha nos endereços $ 27(MSB) e 
$26(LSB), designados, respectivamente, por HBASH e HBASL. 

2 — HNDX: Representado pelo endereço $ES, é o número 
de bytes a ser adicionado ao endereço inicial da linha. Indica 
ainda a parte inteira da coordenada (coluna) dividida por sete. 

3 — HPAG: Dado pelo endereço $ E6, mostra a página da 
memória de vídeo onde está sendo exibido o ponto. Tem o va- 
lor $20, se for página 1;e $40, caso seja página 2. 

4 — HMASK: Colocado no endereço 830. indica a posição 
do bit ligado (valor 1) dentro do byte das colunas de O a 279. 
O byte zero, representativo das colunas de O a 6 (7 colunas), 


our Jofeds[ufafo fito] 
Creourn fo bd ido fo DL 


MS 


a 


DE VÍDEO, 
Da 


PONTOS ACESOS 


BIT DA 
COR 


Figura 1 — Hexadecimal 73 e seu respectivo binário em algum endereço 
da memória, além de sua referência na memória de vídeo. 
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NA CLAPPY, 
CRAFTII PLUS 
E CRAFT-XT 
OMS 
SOFTWARE 
EXCLUSIVOS. 











das e 10 funções 
Sogramáveis. Sistema 
Ivanita (geração de 
caracteres em portu- 
guês). Conectores ba- 
nhados a ouro. 


CPU com teclado 
numérico reduzido. 
Monitor profissional 
Compo (24 MHZ). , 
Interface e drive 5 1/4". 
32 funções prê-pro- 















Na Clappy, o Craft Il Plus e o Craft-XT 
ainda têm 3 software exclusivos: 
o atendimento especializado, 

a assistência técnica perfeita e as 
melhores condições de preço 
e pagamento da cidade. 

Passe na Clappy e faça um teste 
sem compromisso. Você vai ver como o 
Craft Il Plus e o Craft-XT são altamente 
compatíveis com você. 





É MICROCOMPUTADORES LTDA. 


Clappy 


O lado gente da máquina 









kbytes e até 2 discos 
rígidos Winchester de 
10 Mbytes cada. Tecla- 
do de 85 os com 
microprocessador. | 
Monitor monocromático 
de 12”, com tela verde 
anti-reflexiva. 


PC 16 bits IBM a 
atível. Memor 

RAM de 256 kbytes, 
expandível até 640 
kbytes. Opera em tempo 
real. 2 drives de 5 1/4 
de 340 kbytes cada ou 
drive de 5' 1/4” de 340 







Centro: Av. Rio Branco, 12 - loja e sobreloja 
Tel.: (021) 253-3395 
Copacabana: Rua Pompeu Loureiro, 99 
Tels.: (021) 236-7175/257-4398 







Visite nossas lojas ou solicite a visita de um representante. 


ALTA RESOLUÇÃO EM ASSEMBLER (I) 





tem os valores lidos do endereço $30, conforme a figura 2. 
Estes valores se repetem para todos os 40 bytes de cada li- 
nha (byte $00 ao byte $27), na mesma sequência. 





— Figura 2 — Tabela 
de valores do endereço 
$30 para o byte zero, 
relativo às colunas de O a 6. 
O binário é lido da 
direita para a esquerda. 






























































O programa a seguir exibe na tela de vídeo, página 1, o va- 
lor 2000 para o endereço do ponto com coordenadas C =3 e 
L=0 (MSB = 20, endereço $27 e LBS = 00, endereço $26) o 
valor O para o endereço $ES (parte inteira de 3/7 = 0, portan- 
to, byte $00) e o valor 88 no endereço $30. 


RG q 


:ExDERECO 






VEXIBE NA TELA O MSp=2 


TEXIBE NA TELA O LS6=0, DANDO O 
FÍNICIAL 62000 

"LOLOCA ESPAÇO NA Ti 
EXIBE NUMERO DE By 
tADICIONADO 40 END. IN 








1DEO 
R 












OCA ESPACO MA TELA DE VIDEO 
E O VALOR 856 COM Q BIT 


DO MA COLUNA 3 TABELA 1 


5 — HCLR: Sub-rotina com início em $ F3F2, limpa a pági- 
na de acordo com o valor em $ E6. 

6 — HGR: Sub-rotina com início em $ F3E2, limpa a página 
1 e coloca a tela em modo misto gráfico/texto. 

7 — HGR2: Sub-rotina com início em $ F3D8, limpa a pá- 
gina 2 e coloca a tela em modo gráfico completo (full screen). 

8 — BKGND: Sub-rotina com início em $F3F4, gera o fun- 
do com a cor nos endereços $1C ou $E4. 

O programa seguinte coloca a tela em modo misto, página 
1, limpa a área de texto e coloca o fundo com a cor branca: 





"COR BRANCA 
*BERA DO FUNDO COM À COR ERANCA 








O programa a seguir coloca a tela em modo gráfico total, 


página 2, tendo o fundo com a cor violeta: 


FENDERECO 1N 





TAL DO PROGRAMA 
HGRZ 





ITOR VIOLETA 
1GERA O FUNDO COM À COR VIDLETA 





9 — HPLOT: Sub-rotina com início em $F457, plota um 
ponto com as coordenadas C e L e a cor nos endereços $1C ou 
$EA4. O registrador A fica com o valor da linha, o registrador Y 
com o MSB da coluna e o registrador X com o LSB da coluna. 

O programa a seguir plota um ponto na linha 80 e na coluna 
140, com a cor violeta: 





NICIAL DO PROGRAMA 
TELA DE TEXTO 





1LSB DA COLUNA 146 
IMSE DA COLUNA 140 
IPLOTA PONTO EM 180.6 


suo 





10 — HLIN: Sub-rotina com início em $F53A, traça uma li- 
nha do mais recente ponto plotado ao ponto de coordenadas C 
e L. O acumulador leva o LSB da coluna, o registrador X, o 
MSB da coluna e o registrador Y com o valor da linha. 

11 — HFIND: Sub-rotina com início em $FSCB, dá a posi- 
ção do cursor, sendo a coordenada horizontal indicada em 
SEO(LSB) e $EI(MSB) e a vertical em $ E2. 

O programa seguinte coloca o fundo com a cor azul e plota 
qua oblíqua entre os pontos de coordenadas 0,191 e 

79,0: 





oro rENDERECO INICIAL DO PROGRAMA 


1 SUB-ROTINA HO 








1COR Azta 
YGERA O FUN 





Com A COR AZUL 





Na figura 3, podemos ver um quadro com os endereços da 
página zero e as sub-rotinas empregadas na geração de figuras 
em alta resolução, exceto a tabela de forma, que será analisada 
na segunda parte deste artigo. 





Evandro Mascarenhas de Oliveira é Médico e vem desenvolvendo suas 
atividades nas áreas de Laboratório Clínico e Instrumentação Médica. 
Trabalhou quatro anos com o computador Burroughs 6700 do Núcleo 
de Computação Eletrônica da UFRJ, nas linguagens FORTRAN IV e 
ALGOL. É usuário dos micros NE-Z8000 e AP Il. 














































































DESIGNAÇÃO | ENDEREÇO | ACUMULADOR REG X REG Y OBSERVAÇÕES dA 
HPAG SE6 - - - à á endereços de 
zeroe 
HNDX ses = - - INT (C/7) sub-rotinas 
paraa 
HMASK $30 - - geração de 
figuras em 
HBASH 27 - MSB do endereço inicial da linha alta resolução 
HBASL $26 - LSB do endereço inicial da linha price, 
HPOSN SF411 LINHA LSB COLUNA | MSB COLUNA |Endereço inicial da linha 
HCLR F3F2 = Limpa pág. de acordo 
HGR SF3E2 - Tela mista texto-gráfico pág. 1 
R D8 - Tela total gráfica pág. 2 
BKGND SF3F4 - - a Fundo com a cor em SIC ou SE4 
PLOT F457 LINHA LSB COLUNA | MSB COLUNA ponto; cor em SIC ou 
HLIN SFS3A LSB COLUNA |MSB COLUNA LINHA Plota linha; cor em SIC ou SE4 
E 
HFIND FSCB - - - é ? (HSB) Vert. 
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Guia do Usuário 


BARAS, E. M,, Lotus 
1-2-3: Guia do Usuário, Editora 
McGraw-Hill. 


Este é um livro bastante didá- 
tico e possui como objetivo prin- 
cipal ensinar através da prática. 
Assim, o leitor aprende coman- 
dos, conceitos e técnicas do Lotus 
1-2-3 através de aplicações, ou se- 
ja, a cada capítulo ele acompanha 


o desenvolvimento de uma aplica- 
ção, onde todos os comandos e 
conceitos são explicados. Este 
processo é bem eficaz, pois as téc- 
nicas de desenvolvimento encon- 
tradas no livro aplicam-se a quase 
tudo que se pode fazer com este 
software. 

A obra foi dividida em três 
partes principais: Introdução aos 
Gráficos e à Planilha de Trabalho; 
Funções de Bancos de Dados e 
Aplicações e Métodos Avançados. 
Os capítulos iniciais introduzem o 
leitor no assunto, apresentando as 
várias utilizações do Lotus 1-2-3. 
Desta forma, é possível que um 
leitor inexperiente possa entendê- 
lo. 

Ainda sobre o mesmo tema, a 
McGraw-Hill possui o Guia do 
Operador, que traz em apenas 22 
páginas os comandos básicos do 
1-2-3. 


COLETTA, P., Jogos Gráficos 
parao Apple, Editora 
Campus. 


Em sua primeira parte, este li- 
vro traz explicações sobre tabelas 
de som e forma do Apple Il e 
apresenta uma rotina de som e um 


conjunto de caracteres alfanumé- 
ricos necessários para a operação 
de cada jogo. Na segunda parte, 
são apresentados dez jogos acom- 
panhados de uma listagem. Todos 
os jogos, que utilizam gráficos co- 
loridos em alta resolução, apre- 
sentam, ainda, uma lista das va- 
riáveis, os controles necessários 
para sua operação e uma descri- 
ção da lógica. Além disso, o autor 
dá sugestões que permitem ao lei- 
tor incrementar seus jogos através 
das rotinas de som e de cor. 


MIRSHAWKA, V. JR., 
MIRSHAWKA, S,, Jogos e 
Desenhos no TK90X, Editora 
Nobel. 


Para utilizar este livro, é preci- 
so ter um pouco de conhecimento 
sobre o BASIC no TK90X. Ele 
apresenta, ao todo, vinte listagens 
de jogos e gráficos, que foram ela- 
borados com o objetivo de instruir 
e, principalmente, divertir o lei- 
tor. 

No caso dos jogos, destacou- 
se como são os controles, embora 
sua lógica não seja explicada em 
nenhum programa, já que eles são 
bem simples. 





SANDERS, W. B., Manual 
do Apple Macintosh, 
Editora MacGraw-Hill. 


O autor de Manual do Apple 
Macintosh teve a preocupação de 
não escrever simplesmente um 
manual, na concepção real da pa- 
lavra. Além de mostrar ao usuário 
como se deve operar o equipa 
mento, o livro também é um guia 
para aqueles que desejam comprar 
um computador, mas não têm 
opinião formada sobre qual esco- 
lher. Na tentativa de auxiliar nes- 
ta decisão, o autor mostra o que o 
equipamento é capaz de fazer e as 
vantagens que o usuário obtém ao 
levá-lo para casa. 


ENDEREÇO DAS EDITORAS 





Editora Campus — Rua Barão de 
Itapagipe, 55, CEP 20261, tel.: 
284-8443, Rio de Janeiro; 
Editora McGraw-Hill — Rua Taba- 
puã, 1105, Itaim Bibi, CEP 04533, 
tel.: 280-6622, São Paulo; 
Editora Nobel — Rua da Balsa, 
559, CEP 02910, tel.: 857-9444, 
São Paulo. 
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MICRO SISTEMAS na Av. Presidente 
Wilson, 165 - grupo 1210. Centro, Rio de 


Janeiro, RJ. CEP 20030 


Linha TK 2000 


Amplie caracteres 


Com esta dica, você poderá ampliar 
os caracteres do seu TK 2000. Digite 
as linhas abaixo e rode com RUN, 
depois apague-os: 


6 
2 FOR F=768 TO BO7:READ PIPOKE F 
«PENEXT F 


Para usar o programa, digite: 


10 HOMES INPUT“QUAL A COR 7 

“pAsPRINTIINPUTCQUAL A LETRA 7? 
“ras 

20 GRIPOKE 4B,ALHTAB SEVTAR LIPRI 

NT AS 

30 POKE 774,321POKE 2,10 

40 CALL 768 

56 GET AS!TEXTIRUN 


William Joseph Watterson — SP 


Linha 
ZX Spectrum 


Memória disponível 


Para saber quanto resta de memó- 
ria em seu micro, digite as linhas 
abaixo e rode o programa. Depois, 
sempre que quiser saber quanto so- 
bra de memória, use PRINT USR 
23300. 

A rotina fica guardada na área do 
buffer da impressora, e se você quiser 
colocá-la em outro local da memória, 
basta mudar os endereços da linha 10 
antes de rodar o programa. 

10 FOk F=23300 TU 


28 READ 
30 DATA 






















23310 





23,7 








Carlos Alberto Guerreiro — MG 














vai ser impressa a mensagem, basta 
mudar o VTAB da linha 30. 


Linha SHARP PC-1500 


Faça: 

50 GOSUB “ROTINA DE 
CUSTO” 

1000 “ROTINA DE CUSTO” 
C=P * N: RETURN 

Também aceitam rótulos os 
seguintes comandos: 

GOTO, IF.... THEN, LIST, 
LLIST, RESTORE, RUN. 


Aldo Rodrigues da Costa — MG 


Utilizando rótulos 


Facilite a estruturação, a com- 
preensibilidade e a manutenção 
de seus programas no PC-1500, 
fazendo uso de rótulos como no 
exemplo abaixo: 

Ao invés de: 

50 GOSUB 1000 

1000 C =P * N: RETURN 








Linha APPLE 


Mensagem em parábola 


5 HOME INPUT"NOME 7” AS:HOME 
10 FOR A=9 TO 6.2 STEP .2 
20 B=SINCA) 

30 PRINT TAB(BRLOMISITAS 

40 NEXT A 

se Goto 10 


Esta dica serve para mostrar no vídeo 
a mensagem contida na variável A$. Ca- 
so a mensagem exceda os limites da tela, 


basta modificar a fórmula da linha 30. Jorge Pablo Zapata — BA 





Linha ZX81 


Caleidoscópio 


Aí vai uma Dica que explora a 
capacidade gráfica do seu compatí- 
vel com ZX81. Após rodar o pro- 
grama, mude o seu efeito alterando 
a linha 30, para: 


30 LET AS=CHRS INT (RNDe10+128) 





UDG 2 do TK90X 


A função UDG 2 do TK90X é 
uma mão na roda para redefinir os 
caracteres do micro, mas nem tudo 
foi dito no manual. Experimente 
apertar uma tecla de A a U, acom- 
panhada de CAPS SHIFT e você ve- 
rá que pode passar a redefinição da 
tecla pressionada para a letra que 
está em edição. 












30 LET AS=CHRS INT (RNDsLOs128)+ 
CHRS INT (RNDSs0+1) 


Podendo então alterar o compri- 
mento da variável A$. 


1 REM CALEIDOSCOP IO 
16 CLS 

20 LET Asi 

30 LET AS=CHRS INT (RNDeLQss + 
49 LET B=26 

56 LET C=BeRND 

69 LET D=BsRND 

76 PRINT & 
no 
90 PRINT & 
100 PRINT 
110 PRINT 
126 PRINT 
130 PRINT A 
140 PRINT & 
150 LET A 


Ricardo Costa — RJ 


Linha ZX81 


Efeito na tela 


Esta rotina provoca nos compu- 
tadores da linha ZX81 um efeito 
muito interessante no vídeo, poden- 
do ser usada também em qualquer 
programa: 





José Rogério Prates — SP 


10 REM .....(5 caracteres 


Linha APPLE 


Impressão profissional 

Esta dica serve para escrever em 
seus joguinhos ou aplicativos peque- 
nas mensagens com mais elegância. 
A mensagem deve ser introduzida 
na variável A$, que se encontra na 
linha 5. Para mudar a linha, onde 



















70 RAND USk 16514 
BO FOR A=O TO 100 
96 POKE 16515,A 
100 RAND USR 16514 
110 NEXT A 
Você notará que após rodar a ro- 
tina, todos os caracteres estarão in- 
definidos; não se alarme, para voltar 
ao normal é só dar estes comandos 
diretos: 
POKE 16515,30 (new line) e 
RAND USR 16514 





5 HOME: INPUT"FRASE 2 
10 FOR A=1 TO LEN(AS) 
38 VTAB L:HTAB A 

40 BS=HIDSCAS,A,1) 

45 SOUND ASC(B$)+20, 4 
56 PRINT BSICHRS(242)7CHR$(199) 
68 NEXT A 


Jorge Pablo Zapata Rivera — BA 


FAS:HOME 
















Quem Woo Moo — SP 


Linha APPLE 


Conversão DEC-HEX 


Muitas vezes, se faz necessária 
uma rápida conversão Decimal-Hexa- 
decimal. Normalmente, um programa 
para esse fim, além de ser lento, ne- 
cessita de uma série de manipulações 
de “Strings” e é um pouco dispendio- 
so. 

Mas, neste programa, a conversão 
é feita usando uma rotina intrínseca 
do Monitor, o que nos garante uma 
alta velocidade e uma simplicidade 
maior. 

Esta rotina “PRINTA” o conteú- 
































Funções especiais 


Use esta dica para descobrir o 
nome de um programa em seu 
TK85. 


10 LET Z=0 
O LET Z8="A 

18 DIM AS(100) 

46 RAND USR 8305 

56 FOR I=1 TO LEN Ap 

40 IF CODE ASCLICI2ZH THEN NEXT 1 
70 PRINT “PROGRAMA: “IASITO 1) 





Enrique Raul Broens — PR 


Linha TRS-30 


Destrave o LIST 
no TRS-80 


Com o seguinte POKE, qualquer 
programa com LIST todo bagunçado 
poderá ser listado SOMENTE NA 
TELA. POKE 17129,239. Se não 
funcionar, desligue e ligue o compu- 
tador, recarregue o programa e dê 
POKE 17130,66. Se ainda não fun- 
cionar, desligue e ligue o computa- 
dor e vá direto para o BASIC residen- 
te, dê um PRINT PEEK (17129), 
PEEK (17130), anotando os valores 
impressos e, depois, entre no DOS. 
Carregue o mesmo programa e dê 
POKE 17129, nl: POKE 17130, n2, 
sendo nl e n2 os valores que você 
tinha adotado. 





Bruno Lopes Fernando Cabral — PB 








do dos registros XY em HEXA, e seu 
endereço é $ FD99. 

Observação: O valor máximo de- 
cimal é 65535. 


16 HOME 


20 REM DEC-MEX 

3º PRINT"ENTRE COM O NUMERO DEC 

“yrINPUT Z:PRINTIPRINT 

40 K=INT(Z/256):F=7-Ka256 

SO X=FIY=K 

40 POKE 768,1621POKE 769,X:POKE 
sPOKE 7714,Y 

ZIPOKE 773,153:POKE 








75 POKE 775.96 
Be CALL 768 
90 PRINTIPRINT 
100 Goto 30 


Alexandre Magno Rodrigues Alves — SP 


Linha APPLE 


e TK 2000 


Gravação de dados 





















Um dos grandes problemas do 
Applesoft/Basic é a gravação de da- 
dos alfanuméricos em fita, o que di- 
ficulta muito a criação de progra- 
mas do tipo Banco de Dados, por 
exemplo. 

A solução é simular uma função 
que execute com precisão e segu- 
rança. É o que as rotinas abaixo 
propõem. 


ROTINA 1: 


te Hon 
20 CLEAR 

18 DIM A(25 
40 INPUT “T 
SO ALO)=LENCES) 



















é FOR 1=1 TO A(O) 

0 ASCI)SHIDS(BS, 1,1) 

ae NEXT 1 

70 FOR I=1 TO A(O) 

100 ACTI=ASCIASCT)) 

140 NEXT 1 

126 PRINT “PRONTO?IGET X$ 
130 STORE A 









146 PRINTIPRINT “OK 












ROTINA 2: 


1º HOME 
é CLEAR 
30 DIM A(255),AS(255) 

46 PRINT “PRONTO?” GET XS 
se RECALL A 

se FOR I=1 TO A(O) 
O ns D=CHRSCACIO) 





















98 PRINT TEXTOS “3 
106 Fok [=1 TO ACO)EPRINT ASCI)I 
NEXT 
































Estes dois pequenos programas 
rodam sem problema no TK 2000. 

É ACONSELHÁVEL, porém, 
que estes sejam depurados para fun- 
cionarem perfeitamente, de acordo 
com as necessidades de cada um. 


Carlos Henrique C. Duarte — MG 
















Linha ZX81 


INKEY$ para várias 
teclas 


Diversas vezes, num programa 
em BASIC, temos necessidade de 
interpretar mais de uma tecla, 
pressionada simultaneamente. 

Para resolver tal problema, 
pode ser utilizada uma variável 
do sistema contida nos endere- 
ços 16421 e 16422, consequen- 
temente, o valor das teclas pres- 
sionadas, será: 


PEEK 16421+256"PEEK 16422 


Basta guardar o resultado em 
uma variável e, a partir daí, fazer 
todo o resto. Veja um exemplo 
com este pequeno programa que 
interpreta apenas O pressionar si- 
multâneo de 5 e O ou 8 e O, mui- 
to utilizado em alguns jogos. 


10 cs 

20 LET X=PEEK 16421+256nPEEK 16422 
30 IF X=56807 THEN PRINT AT 10,161"5 
Ee” 

40 IF X=62959 THEN PRINT AT 10,161"8 
E” 

se coro 10 


Os valores das teclas pressio- 
nadas podem ser obtidos a partir 
da seguinte rotina: 

9000 PRINT AT 21,0/PEEK 16421+2560PE 


EX 16422 
POLO GOTO Ped 


Linha TK 2000 


Chamadas 
em Assembler 


Duas dicas para os novos usuários 
do TK 2000 que acham que calls no 
TK 2000 não podem ser usados com 
os do Apple. É um engano. Por exem- 
plo, digite a seguinte rotina: 


50000 DATA 160,1.162, 
3,1,208,252,141,48,19 





































23 





S5,270H,247,296,208,237,96 
see =768 TO 769:KEAD BIPO 
KE à 
50020 FOR A=1 TO 255 SIEP 3:CALL 
ABINEXT 



















E veja que, tanto no Apple quanto 
no TK 2000, ela produz um interes 
sante efeito sonoro. Portanto, POKEs 
a partir do endereço 768 rodam per- 
feitamente no TK 2000. 

Para simular o CALL -958 do 
Apple, basta substitui-lo por PRINT 
SPC (39): HTAB 1. Os CALL -936 
do Integer BASIC de alguns Apple II, 
também rodam perfeitamente no TK 
2000, e sem modificações. 
















Bruno Lopes Fernando Cabral — PB 





Para estudar FORTH, é preciso conhecer, pelo menos um pouco, 
sobre programação estruturada. Nesta quarta lição, você vai 
aprender algumas estruturas de controle que FORTH oferece. 








urso de FORTH (IV) 


Antonio Costa 


uando FORTH foi inventado, um modismo deno- 

minado programação estruturada estava entusias- 

mando os cientistas de computação. Este modismo 

influenciou de tal forma as pessoas que conceberam 
FORTH que se tornou impossível estudar a linguagem sem sa- 
ber o que é programação estruturada. 

Existem trechos de programas que, dependendo da situa- 
ção, podem ser ou não executados. Outros trechos devem ser 
executados repetidamente enquanto certas condições forem sa- 
tisfeitas. Isso significa que toda linguagem precisa ter coman- 
dos para controlar a execução dos outros comandos. Tradicio- 
nalmente, tal controle era utilizado pelo IF...THEN GOTO. 
Foi então que o holandês Dijkstra escreveu um artigo denomi- 
nado “GO TO Considerado Prejudicial”. Neste artigo, ele pro- 
põe que se evite o uso de GO TO em certas circunstâncias. Para 
substituir o GO TO, foram propostas estruturas de controle fi- 
xas que no FORTH são representadas por IF ELSE THEN, 
BEGIN UNTIL e BEGIN WHILE UNTIL. Vamos dar uma olha- 
da em cada uma delas. 


IF THEN ELSE 


O funcionamento do IF pode ser descrito assim: uma com- 
paração é realizada por palavras do tipo > (maior), < (menor) 
ou = (igual). Esta comparação é feita entre o segundo elemen- 
to da pilha e o topo, tendo como resultado os valores boolea- 
nos falso ou verdadeiro. Falso é representado por O e verdadei- 
ro, por 1. Caso o resultado seja verdadeiro, todas as palavras 
entre IF e ELSE são executadas. Caso seja falso, as palavras 
entre ELSE e THEN são executadas. 


Existe a possibilidade de IF ser usado sem ELSE. Quando 
isto ocorre, as palavras que estão entre o IF e o THEN devem 
ser executadas, se o resultado da comparação for verdadeiro. 

A figura 1 resume o comportamento do IF. Vamos ver al- 
guns exemplos que tornarão as coisas mais claras. 

Digamos que eu queria definir uma palavra que imprima 
uma advertência, se o número que está no topo da pilha for 
maior que 100. Posso fazer isto com a definição abaixo: 


56 





Comportamento de IF 


E e 


ELSE 


THEN.. 
Se houver 1 na pilha, 
FORTH executa o que 
estóentreo IF e o ELSE. 


Se houver O na pilha, 
FORTH executa o que 
estô entre o ELSE e o THEN 


Executado apenas 
quendo | estô 
no topo do pilha 


Figura 1 
ADV DUP 100 > 
IF ." NÚMERO MUITO GRANDE" CR 
THEN |; 


O DUP serve para fazer uma cópia do número que está no 
topo da pilha, conforme mostrado no seguinte esquema: 


ee 
DUP 

A cópia é necessária porque as palavras comparadoras reti- 

ram da pilha os dois elementos que comparam e não queremos 

perder o número original. O ponto seguido de aspas imprime 

uma mensagem. No exemplo, esta mensagem é NUMERO 

MUITO GRANDE. Observe que a mensagem termina com as- 
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pas. Observe também que não existe es- 
paço entre o ponto e a primeira aspa e 
que existe um espaço entre a primeira 
aspa e a mensagem. A palavra CR faz 
com que o computador mude de linha 
após a impressão da mensagem. Vejamos 
o funcionamento da palavra que acaba- 
mos de definir: 


54 ADV OK 
200 ADV 
NÚMERO MUITO GRANDE OK 


O número 54 não provocou nenhu- 
ma reação de ADV. O número 100 fez 
com que a mensagem fosse impressa. 

Tentemos outro exemplo. Vamos de- 
finir uma palavra que substitui o topo 
da pilha por 1, se ele for maior que O; 
por -1, se ele for negativo e por O, se ele 
for nulo. Esta palavra é chamada de si 
nal pelos matemáticos. 


SINAL DUP 0 > 
IF DROP 1 
ELSE 0 = 
IF 0 
ELSE -1 
THEN THEN |; 


Deixo para o leitor a decifração do 
funcionamento de SINAL. 

É boa prática de programação colo- 
car os componentes de uma estrutura de 
controle um embaixo do outro. Isto po- 
de ser visto na definição de SINAL: os 
ELSEs, estão embaixo dos IFs, e os 
THENS, dos ELSES. 


BEGIN UNTIL 


O comportamento de BEGIN UNTIL 
pode ser resumido assim: entre o BEGIN 
e o UNTIL existem várias palavras que 
são executadas repetidamente até que o 
UNTIL encontre a indicação de verda- 
deiro na pilha. Este comportamento é 
esquematizado na figura 2. A indicação 
de verdadeiro, conforme já vimos, é o 
número 1. 


Vamos usar BEGIN UNTIL para defi- 
nir uma palavra muito útil. Trata-se da 
SN. Esta palavra lê o teclado até que 
uma pessoa tecle S (simbolizando sim) 
ou N (representando não). Caso a letra 
teclada seja S, 1 é deixado na pilha. Ca- 
so seja N, O é deixado na pilha. Veja o 
exemplo: 


: SN BEGIN .* Tecle S(im) ou N(ão)" CR 
KEY DUP 78 = 
IF DROP 0 1 
ELSE 63 = 
IP 11 
ELSE O 
THEN THEN 
UNTIL 


Os números 78 e 83 são os códigos 
de Se de N. Se a letra teclada for N (có- 
digo 73), será executado “IF DROP 
0 1”. O 1 servirá para indicar ao UNTIL 
que ele pode parar de pedir à pessoa que 
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Comportamento 
do BEGIN...UNTIL. 


BEGIN BEGIN 


gh 


LJ 


UNTIL UNTIL — 


Executo repetida- Ao encontrer | no 
mente o que estê topo, posso 6 exe- 
entre BEGIN e  cuter os comandos 
UNTIL até que 1 que estão epóso 
apereço no topo. UNTIL. 





Figura 2 


tecle S ou N. O O indica que N foi tecla- 
do. Se a tecla pressionada não for N, ela 
é comparada com S (código 83). Caso 
ela seja a S, FORTH executará “IF 1 1”. 
O primeiro 1 serve para mostrar que S 
foi apertado; e o segundo, para fazer o 
UNTIL interromper as repetições. Se a 
pessoa não apertou nem S nem N, O é 
deixado na pilha e, ao ser encontrado 
por UNTIL, fará com que o programa 
peça mais uma vez que o usuário tecle 
S(im) ou N(ão). Nosso programinha é 
teimoso: enquanto alguém não aperta 
Sou N, ele não pára de insistir. 


BEGIN WHILE REPEAT 


O BEGIN WHILE REPEAT não é 
muito diferente do BEGIN UNTIL. En- 
tre o BEGIN e o REPEAT há várias pa- 
lavras que devem ser executadas repeti- 
damente enquanto o WHILE encontrar 
um sinal de verdadeiro deixado na pilha 
por alguma comparação. Se WHILE en- 
contrar um sinal de falso, ele interrom- 
perá as repetições. O exemplo que va- 
mos fornecer é uma palavra que pede re- 
petidamente números e os soma ao topo 
da pilha. 


: SOMATÓRIA O 
BEGIN .* DÊ-ME UM NÚMERO” CR SIN 
DUP O > 
WHILE REPEAT DROP ; 


Inicialmente, um O é colocado no to- 
po da pilha. Números são pedidos, en- 
quanto a pessoa que os está teclando 
não entrar com um que seja negativo. A 
palavra que lê inteiros do teclado e os 
coloca na pilha é 4 IN. 


CARACTERES GRÁFICOS 


A maioria dos computadores possui 
certos códigos que, impressos com 
» 
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CURSO DE FORTH (IV) 



























ENCOLHE[150][176][171)[151][176][52 
6 O DO EMIT LOOP, 























A 


/ 


/ 


ESTICA [150 176 176 176 176 32 


6 O DO EMIT LOOP ; 











Figura 3 


EMIT, produzem símbolos gráficos. É 
possível imprimir sequências destes sím- 
bolos gráficos de modo a formar dese- 
nhos muito úteis na confecção de jo- 
gos. A figura 3 mostra uma das muitas 
maneiras de fazer isto. Nesta figura, há 
um esquema indicando como uma pe- 
quena minhoca egípcia pode ser dese- 
nhada tanto com o corpo encolhido 








anto com o corpo esticado. Os có- 

igos gráficos usados para criar a mi- 
nhoca são de máquinas compatíveis 
com o TRS-80. Caso sua máquina se- 
já da linha Sinclair, consulte o ma- 
nual para ver quais símbolos deve usar 
a fim de obter efeito semelhante. 

Na figura 4 mostramos como movi- 
mentar a minhoca pela tela. Nesta lista- 
gem, a palavra PAUSA emite uma nota 
musical de certa duração e tem duas fina- 
lidades: produzir som e fazer FORTH per- 
der tempo de modo que o movimento da 
minhoca não seja muito rápido. Obser- 
ve que usamos a palavra NOTE, cuja de- 
finição foi dada na primeira lição. Reuti- 
lizar palavras definidas anteriormente é 
muito popular entre programadores 
FORTH, pois diminui em muito o tem- 
po de desenvolvimento de aplicativos. 
Aconselho o leitor a manter uma biblio- 
teca de palavras reutilizáveis. 

Vamos agora discutir a definição de 
MINHOCA apresentada na figura 4. A 
palavra PAGE apaga a tela. A sequência 
“15 EMIT” elimina o cursor de máqui- 
nas como o TRS-80 e o CP 500. Caso 
sua máquina não seja uma destas duas, 
não é preciso incluir “15 EMIT” na defi- 
nição. A sequência “6 | PTC ESTICA” 
coloca o cursor na coluna 1 da linha 6 e, 
em seguida, desenha a minhoca esticada. 





ENCOLHE 150 176 171 151 176 32 
6 O DO EMIT LOOP ; 
ESTICA 150 176 176 176 176 32 
6 O DO EMIT LOOP ; 


: PAUSA 98 40 NOTE ; 
: MINHOCA PAGE 15 EMIT 
55 0 DO 6 1 PTC ESTICA PAUSA 
6 | PTC ENCOLHE PAUSA 
LoOoP ; 





Figura 4 


Como 1 está variando de O a 53, haverá a 
ilusão de movimento. 

Gostaria de chamar a atenção do lei- 
tor para o fato de que o último caráter 
do corpo da minhoca é um espaço em 
branco (código 32, no TRS-80). Se este 
espaço em branco não for incluído, a 
minhoca deixará um rastro ao se movi- 


mentar. 
em 
e 


Antonio Eduardo Costa Pereira é formado 
em Engenharia Eletrônica pela Escola Politéc- 
nica da USP. Fez mestrado em Ciência Espa- 
cial no Instituto de Pesquisas Espaciais, em S. 
J. dos Campos, e doutorado em Engenharia 
Elétrica na Cornell University, de Nova lorque. 





problema 


siste 


Projeto MICRO BUG 


ço Sim, desejo receber 


Mist 
Cr8 12.000 
pág Valor 


a fita MICRO BUG, com cartão de referência, 
pela qual pagarei Cr$ 40.000 + Cr$ 7.800 
pelas despesas do correio. 


Nes atrasados 
Sim, desejo receber 


os exemplares 


— de MICRO SISTEMAS 


(do 31 ao 39] pelos quais pagarei o preço 
unitário de Cr$ 3.000 


novalor de CrB 








à ATI Editora. 


ASSINATURA 


Rua Oliveira Dias, 153 - CEP 01433 
São Paulo/SP - Tel.: (011) 853-7758 
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=== |. 
= DETN 
a aÃ 


GARANTIA TOTAL - MANUAIS INCLUSOS 




















APPLE 1 - JOGOS ESPECIAIS EM DISCO - CADA CR$ 120.000 
- KARATECA (use carmo de vecase 

- COMA - dert.sa quát 20 fome 

« GMOSTBUSTERS -avert.sa qua ao teme 

- SUMMER GAMES 8 Viocsisades esposas 


CP-400 JOGOS EM FITA 

PN = DECATHLON O jogo ms Samos oe socos 
FIG2 - DOUBLE BECK - Pronta ax cmagems 
Fa. g 

Fios. 
rios 
Fio» 
Fig. 
FIOS - 
FI - 
Fo. 
Pu 
ema 
ms. 
Pra. 
FS. 
Fa- 
FT. 
FI. 
Fi. 
Po- 





EERERE 


BRINDE: Na COMPRA DE O 
GRATIS JM SPEA SNTE 





| CPA UTILITARIOS EM FITA 
| FISO- SUPER SCREEN 5º » 


dé temas veto ga! 





| PREÇO DE CADA JOGO: Cr$ 35.000 
PARA CADA 2 JOGOS COMPRADOS, ESCOLHA UM TERCEIRO INTEIRAMENTE | 
GRÁTIS. E AINDA GANHE MAIS UM JOGO: BLACKJACK. 


= PITFALL dm cavernas persas 
-TANMAN o o Parma 





CP-400 APLICATIVOS E UTILITÁRIOS EM DISCO 
DIZ! - VIPCALC Pio zoo 
| DIZa-VPWRTER 250000 
o 00o 





ema 

COLEÇÃO ViP já ACIMA) too ooo 
DX25 - PRO COLOR FILE 
DIZ - ELITE FILE Bs x 
Dri? - ELITE CALC Parsra cletónca E 








APPLE E - UTILITÁRIOS E APLICATIVOS EM DISCO 
DOS! - DISK DRIVE DIAGNÓSTICO 

«SAY IT- Sosetcaco de var 

» MUSICOMP + Comporta sua Mosca 

* ROALA - Coado Se Desertos 

» PRINT SHOP Gerador de Impressos 

+ THE COMPLETE GRAPNICS SYSTEM 

+ SCREEN WRITER . ocessados de Textos 
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= OT SYNTMER 77 E MUSIC 








+ FORTH  Urgusçem centlca 
COLEÇÃO DAS TRÊS LINGUAGENS ACIMA 70.000 
PIRATECTOR > 


ee se prOgUTA Corra pestana e coloca 


SEREREERESFEEAEEERE 
DEDEREACENECENNERDES 

















COMO COMPRAR: 
NÃO RECORTESUA REVISTA. FAÇA O SEU PEDIDO POR CARTA, RELACIONANDO SEUS DADOS E OS CÓDIGOS DOS PROGRAMAS DESEJADOS. ANEXE 
À CARTA UM CHEQUE NOMINAL À ATI Editora Lida., Av. Pres. Wilson, 165 grupo 1210 - Centro, CEP 20.030 - Rio de Janeiro - RJ. As despesas do correio já estão incluídas, 


SOFTSPEED - CAIXA POSTAL 40088 - RIO-RJ 
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MELHORES 
LIVRARIAS 
DO 
PAÍS 






EDITORA 


NOVOS 
LANÇAMENTOS 













Coggo MOI 


msmo 
Preço: Cs a 0. 


PEDIDOS PARA ATI Editora Ltda., Av. Pres. Wilson, 165 grupo 1210 CEP 20.030 - Rio de Janeiro - RJ, anexando cheque nominal. 


AMicrodigrtal 
lança no Brasi 
omicro pessoa 
de maior sucesso 
no mundo. 


À panir de agora a história dos 
micros pessoais vai ser contada em duas 
partes: antes e depois do TK 90X 

O TK 90X é, simplesmente, o único 
micro pessoal lançado no Brasil que 
merece a classificação de “software 
machine”: um caso raro de micro que 
pela sua facilidade de uso, grandes 


chei 
TIXDOX 


color computer 


Fiada é ABICOMP 









co acessível recebeu a | revistas de usuários disponíveis para ele 
programas & | internacionalmente 
Jo E aqui 0 TK 90X já sai com mais 
! 100 programas, enquanto outros estã 
mais de 2 mil programas, 70 em fase final de desenvolvimento para 
livros, 30 penitéricos e-inúmeras he dar mais opções para trabalhar 
aprender ou se divertir que com qualquer 
outro micro 

O TK 90X tem duas versões de 
memória [de 16 ou 48 KJ, imagem 
alta resolução gráfica com 8 cores, 
carregamento rápido de programas 
tcomrolável pelo próprio monitor), som 
pela TV, letras maiúsculas e minúsculas 
e ainda uma exclusividade: acentuação 
em português 
) seu programa: peça já uma 
ção do novo TK 90X 

















Para você 
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bitegou O micro 


e programas. 
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